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CHAPITRE 1 
INTRODUCTION 


Le système 10 . 3, implémenté sur ordinateur PDP 10, est une version du 
système VLISP de l’Université PARIS-8 VINCENNES. 


` 


Le langage et le système sont destinés à l’enseignement et à {а recherche en 
programmation expérimentale, en intelligence artificielle, et en informatique 
musicale. 


MLISP 10 est utilisé depuis trois ans déjà dans de nombreux sites en France et 
à l'etranger. 


10 est La plus grosse version de VLISP, déjà implémenté sur une grande 
variété d’ordinateurs, très anciens (CAE 510, CAB 500), plutôt récents (T1600, 


SOLAR), grands ordinateurs (ПЕС PDP 10), et microprocesseurs (Zilog 280, 
ІМТЕ 8080). 


IL comporte, outre L’ interprète du langage VLISP, un compilateur, un 
chargeur-assemb Leur, un éditeur-indexeur et de nombreux utilitaires de 
mise-au-point. ` | 


Пе nombreuses augmentations et améliorations nous ont conduit à refondre ce 
Manuel de Référence, qui livre une description informelle du langage 10 
et de son système, chaque construction décrite étant illustrée par une grande 
variété d'exemples ponctuels. 


Ce manuel n'est pas réellement destiné aux débutants, mais aux utilisateurs 
ayant déjà une certaine expérience de LISP. Le lecteur ne doit donc pas 
espérer une introduction progressive et ordonnée aux constructions du 
langage : Les références avant y seront plus souvent (а régle que l'exception 
dans les exemples. 


Le manuel décrit en principe tous les aspects courants du système, mais 
n'engage l’auteur que sur les principes de base. Le manuel sera sujet à des 
remaniements, au fur et à mesure de (l’évolution normale et souhaitée du 
systéme et de ses utilisateurs. 


бі vous détectez une situation trés anomalique ои une erreur manifeste du 
système, rassemblez le plus grand nombre d'informations sur son état courant, 
et contactez-moi toute affaire cessante : 


Jéróme CHAILLOUX 
Département d'Informatique 
Université Paris-8 Vincennes 
75012 Paris FRANCE 

tél : 374-12-50 Poste 299 
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1.1 Pour Debuter Avec MLISP| 10. 3 

Pour jouer 10. S3, il suffit apres le LOGIN de jouer sur Le terminal : 
‚В VLISP 

Exemple de session simple avec 10. 3 


er vlisp Appel du système 


Réponse normale du système 
qui n'a pas trouvé le fichier 
d'initialisations sur le disque. 


жж LOOKUP ERROR (INPUT) : 0 


$ 
$ 
$ 
-—— ALLO ? --- 5 Indique que te système 
; attend des données sur le terminal 
? O $ NIL est équivalent à О 
x= NIL ; dit l'interpréte. 
; time = D ms : 23 Cette évaluation a duré peu de temps. 
567 Га valeur d’un nombre est ce nombre 


567 Р s lui-même. 
s time = me s 


SCH "(АВ C)) ; Appel plus complexe 
$ time = O ms ; 
(сағ '(a b c)) } Les caractères minuscules sont automatiquement 
(B C) р convertis en majuscules 
; time = Q ms ; 
(DE РОО (A L) | ; 
(COND 
( (NULL L) 0) | 
©» | $ «. produit irrémédiablement une erreur 


; de lecture et re-entre dans la boucle 
$ de lecture normale. 

жж READ error : 1 | 
--- Last Forms МП 
EE 


x ЕЭО СООН "9-92-91 ü O 


(DE РОО (A L) Définition de la fonction qui 
(COND ramène Le nombre d'occurences 
(САТОМ L) 0) ; de l’atome А dans la liste L. 
(ХЕП (CAR L) A) (ADD1 (FOO A (CDR L)))) 
((FOO А (CDR 122222229 
Ғ00 Па fonction est maintenant définie. 
ç time = 0 ms ; 


+, we 


ы "DO "(DO DO DO RE МІ RE DO MI RE RE DO) ; Et ette fonctionne. 

б time = 0 me: 

(LIBRARY DEBUG) ; Chargement des aides à la mise au point. 
i csi s Loaded. 


s time = 1500 ms ; 


(TRACE F00) ; Préparation du traçage de Ғ00. 
s time = 20 ms ; 


(РОО "RE ”(00 DO DO RE MI RE DO MI RE RE D0)) ; Appel avec trace de FOO. 


аралы аа EE oi rl S 
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1 ---» FOO : «RE «DO DO DO RE MI RE DO MI RE RE 00)) 
2 =--> FOO : «RE (DO DO RE MI RE DO MI RE RE DO») 
З ---> F00 : «RE (DO RE МІ RE DO MI RE ВЕ D0)) 
4 ---> FOO : «RE «RE MI RE DO MI RE RE DO») 
5 .--> FOO : (ВЕ (МІ RE DO MI RE RE DO») 
6 ---» РОО (RE (RE DO MI RE RE D0)) 
7 ---» FOO : «RE (00 MI RE RE DO») 
8 ---> FOO : «RE (МІ RE RE DO») 
9 ---> EDD : «RE (RE RE D0)) 
10 ---> Ғ0О0 : (ВЕ «RE DO») 
11 ---» РОО : (RE (D0)) 
12 ---» FOO : (RE NIL) 
12 <--- РОО = 0 
11 «--- РОО = 0 
10 <--- РОО = 1 
9 <--- F00 = 2 
8 <--- Ғ00 = 2 
7 <--- F00 = 2 
6 <--- FOO = 3 
D <--- ҒОО = З 
4 <--- FOO `= 4 
3 <--- ЕКОО = 4 
2 <--- РОО = A 
1 <--- FOO = 4 
- 4 
> ; time = 280 ms ; 
d (UNTRACE Ғ00) ; Enlève le traçage de РОО 
= (F00) | | 
> $ time = Ü ms ; 
2 (STOP) ; Retour au moniteur 
Am ; pour faire comme ЕТУ. 


Toutefois pour profiter au maximum du système, il est préférable de mettre sur 
ва partition un fichier de nom CONFIG. INI (son utilité est décrite au chapitre 
8 Organisation et Utilisation) qui au minimum doit contenir cette invocation : 


(CONFIGURATION ° (SYS (VLISP . IND) 


Ce fichier (qui se trouve sur la partition système) contient un certain nombre 
de fonctions et de macros qui sont trés utiles. Un listage de ce fichier езі 
donné еп Appendice А. ignore La page de répertoire que l'éditeur ЕТУ 
insére au début des fichiers. 


En ce cas l'appel du systeme devient : 
‚В Ү 15Р 


VLISP 10.3-21 15-0ct-78 00:00:56 (LIS . JER) 

Pour avoir l'etat de la documentation demande .HELP VLISP 
SYS: VLISP.INI Loaded. 
Dans ce cas ies 3 Lignes précédentes 
sont imprimées et le fichier 


* w we ve 


«x ALLO E — SYS: VLISP.INI est chargé. 
= PRET voila c’est prêt. 
А + time = 2280 ms ; 
2 (WHOIS BENNETT) : Ce fichier contient par exemple 
"ОВ Gerald Bennett" » {а fonction WHOIS qui donne Le 
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— n NIY o oP" T> inm и — . . 
"BKS Bennett Smith" ; noms des gens. 
--- ALLO ? --- 
OK 


с time = 3360 ms ; 


"O70 B8 T" 


(WHOIS КАТ) ; Encore une utilisation де WHOIS. 
"KLK Kate Kentish" 


"KBZ Katarzyna Zelaske" 
--- ALLO 7 --- 

OK 

; time = 3320 ms ; 


(DE POL (E) = Définition d’une fonction de 
(IF (ATOM E) E polonisation préfixe d’une 
(LIST (CADR E) (POL (CAR E». (POL (CADDR E))))) 


POL +: expression 2-aire 
; time = 0 ms ; 


| , | | 
(PRETTY POL) з Demande dé re-édition de la fonction 
YS:PRETTY.VLI Loaded. ; Ce fichier est automatiquement chargé. 


(DE POL (E) 
ыты E) 


[XCADR E) (POL (CAR Е?) (POL (CADDR E))1)) 


UNAR | -2-2-2O-oB P 


NIL 
$ time = 2980 пе; 


(POL '(A ж B)) | | 3 Essai de la fonction. 
(ж А В) | 
; time = O ms ; 


(POL * (CA + B) ж (A - B))) 
(ж (+ A B) (-A B)) 
s time = 20 ms ; 


(TRACE POL) ; Chargement et mise de la trace. 
SYS: DEBUG. VLI Loaded. 

(POL) 

$ time = 1360 ms ; 


(POL '((B ^ 2 - (4 ж (A ж СОО»; 
---> POL (((B ^ 2) - (аж (A x C)) 
---> POL ((B 7 2)) 

---> POL (B) 

«--- POL « B 


---> POL (2) 
<--- POL = 2 
(^ B 2) 


<--- POL 
---> POL ((бж ХА x С))) 
---> POL : (4) 

<--- POL = 4 

---> POL : СА ж СО) 

---> POL : (A) 

<--- POL = А 

---> POL : (C) 
<--- POL = С | 

<--- POL = (ж A С) 

<--- POL = (ж 4 (ж A C)) 

<--- POL = (- (1 B 2) Ck 4 Ck A C))) 


2-21 H О-9ӘЛ Е-Е ñ VNR H 


E ssai tracé. 


es M Bg ee H re ae oo 


INO RP PP СӘ О) UD N N UD О) 00 UD N) — 
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(~ (4 B 2) Gk á GA о» 


А s time = 200 пе; 

2  (UNTRACE POLL) s Tentative de suppresion de trace 
жж UNTRACE : C'est quoi ? POLL : Message furieux de UNTRACE. 

= — (POLL) 

: ; time = Ü mer | 

d  CUNTRACE) ; VOILA. 

= (POL) 

: ; time = 0 ms ; 

2 < » Dans SYS:VLISP.INI, le macro-caractère + 

Bye ; est défini comme étant un appel de La 

EXIT s fonction STOP, d’où l'effet : 


ПЕЕ 
7 


Е о? tt; | ` ' 1 
| e mz 
fe 
| (CR b. L4 E oui, 
| MEN 
LI Zoe “- ` 
"LI ТТТ” NM. 
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CHAPITRE 2 


L ° INTERPRETE 10 


2.1 Les Objets MSP 


L' interprète 10. 3 permet de manipuler des objets de 6 types : 
les atomes litéraux 

les atomes numériques (nombres entiers et flottants) 

les chaines de caractéres 

les listes 

les tableaux d'objets | 

les tableaux d'objets binaires (zone code). 


2.1.1 Les Atomes Litéraux - 


Iis jouent le rôle d' identificateurs et servent à nommer les variables, les 
fonctions, les étiquettes ... Ils sont créés implicitement dés leur Lecture 


dans le flux d'entrée ou explicitement par les fonctions IMPLODE ou GENSYM ; 
nul besoin donc de les déclarer. u 


Leur nom externe (Print name ou P-name) est une suite de caractères 
que lconques (contenant au moins un caractère non numérique). А leur création 
seuls les 13 premiers caractères sont pris en compte. Оп peut insérer dans un 


P-name des délimiteurs s'ils sont précédés du caractère / (voir Le chapitre 7 
Sur les entrées/sorties). 


Chaque atome posséde une valeur propre (sa Cell-Value ou C-val) qui est 
indéfinie à sa création, ainsi qu’une Liste de propriétés (sa Property List ou 
P-List) qui contient certains aspects particuliers de cet atome par exemple (а 
(ou Les) définitions de fonctions qui lui sont associées. 


Un atome littéral a approximativement la structure suivante : 


NEG URN. 
| C-val | | P-List | 


P-name 
сове оь 0 


En 10 Le CAR d’un atome est sa C-val, Le CDR sa P-list. Ces atomes sont 
Stockés dans une zone gérée dynamiquement. 


Certains atomes sont déjà connus de LU interpréte : 


- les constantes littérales (qui contiennent Leur propre adresse en C-val) par 


http;//www.artinfo-musinto.org VLISP 10.3 Manuel de référence, .août 1978, page 13 / 224 


M s 
` 


Page 12 | ӘПЕР 10 . 3 Manuel de Référence 


exemple : NIL T LAMBDA SUBR FSUBR EXPR FEXPR MACRO MACIN MACOUT QUOTE ... 
- les fonctions standard | 


2.1.2 Les Nombres - 


MIA 10 manipule des nombres entiers (permettant de calculer dans 
Li intervale : [-2735 - 1 , 421351) et des nombres flottants également sur 36 
bits. 

Le P-name d'un nombre est (а représentation de sa valeur dans la base de 
conversion courante (e.g. 10). La valeur d'un nombre est ce nombre lui-même. 
Un nombre n'a ni C-val ni P-list. 

Les fonctions sur les nombres ont été regroupées au chapitre 4. 


2.1.3 Les Chaines De Caractéres - 


Les chaines de caractères, considérées en MISF 10 , comme des atomes, ainsi 
que leurs fonctions associées sont décrites dans le chapitre 5. 


2.1.4 Les Listes - 

Les Listes sont représentées d'une manière standard : les différents éléments 
d'une Liste utilisent un doublet de pointeurs dont la partie gauche (le CAR) 
contient l'élément, et la partie droite (le СОВ) contient un pointeur sur 
L'étément suivant ou NIL pour le dernier élément, | 


Ex : ta liste (A (BC. D E) est stockée en mémoire 
sous la forme : | 


2.1.5 Les Tableaux - 


11 est possible d'utiliser des tableaux uni-dimensionnés (des vecteurs donc) 
d'objets MIS. Le chapitre 6 leurs est consacré. 
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2.1.8 Le Code - 


Un LAP (LISP E Program) permet d'assembler des instructions en 
pseudo-assembleur РОР 10 et de charger le code résultant en mémoire, dans une 
extension de la zone mémoire alloués à l’interprète. Cette zone considérée 


comme un tableau d'objets binaires est gérée par Les fonctions spéciales du 
LAP (voir le chapitre 11). 


2.2 Fonctionnement De Base De L'évaluateur 
2.2.1 Evaluation Des Atomes - 


La valeur d'un atome littéral est ва C-valeur. L'évaluation d'un atome 

littéral dont la C-valeur est indéfinie (auquel on a pas encore donné de 

valeur) provoque Lors de son évaluation une erreur dont le Libellé est : 
жж undefined variable «at» 

dans lequel le nom de l'atome Littéral incriminé est imprimé. 


La valeur d'un nombre ou d’une chaîne de caractères 6st ce nombre ou cette 
chaîne elle-même. 


2.2.2 Evaluation D'une Liste - 


L’évaluateur considère toujours une Liste comme un appel de fonction. [Cette 
liste s'appelle une forme. Le CAR de cette forme est La fonction, te CDR de 
(а forme les arguments de (а fonction. | | 

Le valeur d’une forme est 1а valeur ramenée par L'application de (а fonction à 
ses arguments. 


2.3 Les Fonctions 


La fonction (Le CAR de La forme) peut être un atome Littéral dans le саз d'une 
Мақы prédéfinie (standard ou utilisateur), un nombre ou une Liste qui 
est 1 . 

- Solt une lambda-expression qui est la déclaration explicite d'une fonction 

~ Salt une nouvelle forme dont la valeur est la fonction demandée. 


Dans le cas ой la fonction est un nombre, il correspond à l'appel implicite de 

la fonction CNTH. Donc l’évaiuation de (<n> <i>) ramène Le «n»iàme élément de 
š la Liste ler argument <l>. 

ex: (3'(ABCDO р С 

(8'(12345) т” NIL 

MS 10 possède 10 types de fonctions prédéfinies : ` 

Les SUBR et les FSUBH écrites en langage machine et traitées par l’évaluateur 

normal. 


Les EXPR, FEXPR. et. Les MACRO écrites en 
hormat. 


di et traitées. par. Ll’évaluateur 


Les fonctions tableaux ARRAY et Les fonctions AUTOLOAD qui sont des fonctions 
spéciales traitées également par L’ interprète. 


Les MACIN et les macro-caractères écrits en VLISP 


et traitées per Le lecteur 
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NSP (la fonction READ) 


Les MACOUT écrites en également et traitées par les fonctions 
d'impression (PRIN1 et PRINT). 


Pour chacun des types que l'on va decrire, on précisera : 

- la fonction de LU interprète qui les traitent 

~ le langage utilisé pour son écriture 

- Le type des arguments (évalués, non-évalués ...) 

- les actions prisent s'il y a trop ou pas assez d'arguments fournis à l'appel 


2.3.1 Les SUBR - 


Les SUBR sont des. fonctions écrites en..langage machine, résidentes dans 
SA IE dès son lancement (les fonctions standard) où après compilation 
Les fonctions compilées). Ces fonctions traitées par l’évaluateur possèdent 
des arguments évalués. IL existe des SUBR à 0, 1, 2, 3 ou М arguments. Pour 
Les SUBR à nombre fixe d'arguments (0, 1, 2 ou 3) s’il y а trop d'arguments . 
fournis à l'appel, ils sont ignorés sans être évalués. L’interprète n'évalue 
donc que Le nombre d'arguments dont il a besoin. D'autre part s'il manque des 
rguments ils sont supposés être liés à la valeur NIL. 
{ n'est pas possible de définir des fonctions de ce type, sauf à écrire 
directement en LAP de nouvelles fonctions standard. 
Ces fonctions sont très nombreuses dans l’interprète standard, de l’ordre de 


Ex : (CONS 'A) = (CONS "A NIL) E” (A) 
(CONS (PRIN1 1) ӨНІМІ 2 (PRINT 3) 1217 (0.2 


2.3.2 Les FSUBR _ 
Les FSUBR sont des fonctions écrites еп langage machine, résidentes dans 
l’ interprète dés боп lancement (les fonctions standard) ou après compilatiori 
(Les fonctions compilées). Ces fonctions traitées par l’évaluateur possèdent 
les arguments en nombre variable qui ne sont pas évalués, Сев fonctions sont 


principalement utilisées comme fonctions de contrôle de 1” interpràte ou comme 
fonctions de manipulation de noms. Elles sont peu nombreuses. | 


2.3.3 Les EXPR - 

Les EXPR sont des fonctions écrites en MIÐ et interprétées par les fonctions 
standard d'évaluation (EVAL et APPLY). Ces fonctions possèdent un nombre 
quelconque d'arguments qui sont évalués. S'il y а trop d'arguments fournis à 
l'eppel, ils sont ignorés sans être évalués. S'il n'y en а pas assez, ils 
sont supposés être liés à la valeur NIL. 

(DE «at» <і> «si» ... <sN>) [FSUBR] 


permet de definir de nouvelles EXPR. «at» est le nom de l'atome auquel 
sera rattachee (а lambda-expression t 


(LAMBDA <і> «si» ... «sN») 


DE ramène en valeur Le nom de (а fonction definie. 
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2.3.6 Les FEXPR - 


Les FEXPR sont des fonctions écrites en et interprétées par les fonctions 
standard d'évaluation (EVAL et APPLY). Ces fonctions possèdent un nombre 
quelconque d'arguments qui ne sont pas évalués. 


(DF «at» <і> «si» ... <sN>) IFSUBR] 


permet de définir de nouvelles FEXPR. «at» est le nom de l’atome auquel 
sere rattachée la Lambda-expression : 


(LAMBDA <і> «si» ...  «sN») 


ОҒ ramène en valeur Le nom de la fonction définie. 


2.4 Lembda-expression Et Liaison Des Variables 


En une fonction peut également être décrite explicitement (ои 


anonymement) au moyen d'une lambda-expression (Lambda-fonct ion) qui est une 
Liste de La forme : | 


(LAMBDA «ipf» «si» ... <sN>) 


dans laquelle : <lpf> est La Liste des paramètres formels. | 
«S1» ... <sN> est (а Liste d'expressions qui 
seront évaluées en séquence, La valeur 

Famenée étant celle de «sN». 


Des iambda-expressions de ce type sont automatiquement fabriquees par Les 
fonctions de definition DE, DF et DM. 


Les arguments sont (165 aux variables d’une manière spécifique à chaque type 


de fonction. 


2.4.1 Liaison Des EXPR - 
Si la Liste des parametres formels <lpf> est : 


- Une Liste de variables. Dans ce cas (а Liaison s'effectue élément раг 
élément entre La Liste des variables (paremètres formels) et (а Liste des 
érguments (paramètres actuels). Si la Liste des arguments est plus longue que 
celle des variables, les arguments restants sont Гоо ае. SANS être évalués. 
Si La Liste des variables est plus longue que celles des arguments, [ев 


variables en trop sont Liées à NIL et font office de variables Locales. 


- une variable. Dans ce cas TOUS Les arguments sont évalués puis rassemblés 
dans un Liste de valeurs qui est Liée à cette variable. 


- une Liste pointée de variables qui est une variante du cas précédent (voir 
le dernier exemple). | | 


ex: de Liaison des EXPR 
EXPR He, og (X Y Z) (LIST X Y 299 


PRIN1 1) (PRIN1 2) (PRIN1 3) (PRIN1 4)) 
123 et P (123) | 
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gege 


EXPR ((LAMBDA (X Y Z) (LIST X Y ZD 
(PRIN1 1)) 
1 et т Q NIL NIL) 


EXPR ((LAMBDA X X) (PRIN1 1) (PRIN1 2) (PRIN1 3)) 
123 et FF (123) | | 


EXPR  C(LAMBDA (X Y . Z) (LIST X Y 2)) 
(PRIN1 1) (PRIN1 2) (PRIN1 3) (PRIN1 4)) 
1234 et r (12 (3 4)) 


2.4.2 Liaison Des FEXPR - 


Pour ce type de fonction aucun argument n'est évalué. Tous Les arguments sont 
rassemblés en une Liste qui est liée à la première variable du paranètre 
formel (qui doit être obligatoirement une Liste). Toutes les autres variables 
de cette Liste font office de Variables locales et sont initialisées à NIL. 


ex : de liaison des FEXPR 


ссд (K) X) (PRINT (CAR "А BO» — 
pr (PRINT (CAR ' (A B2) 


FEXPR | («LAMBDA (X Y . Z) (LIST X Y 2)) 
(PRIN1 1) (PRIN1 2) (РНІМІ 3) (PRIN1 4)) 
pr (((PRIN1 1) (PRIN1 2) (PRINT 3) (PRIN1 4)) NIL NIL) 


2.4.3 Liaison Des MACIN Et Des MACOUT - ` 


Cette liaison est ident ique aux EXPR mais Les arguments (іе CDR de ce qui а 
été lu ou ce qui devait être imprimé) ne sont pas évalués... б жыз s 


2.5 Les MACRO | 

|” interprète reconnait un nouveau type de fonctions, les MACRO. Une macro est 
un atome qui possède sur sa P-Liste une lembda-expression sous 1” indicateur 
MACRO. А L'évaluation d'une forme dont le CAR est une macro, EVAL évaluera 
d'abord (а fonction associée à cette macro avec toute la forme comme argument, 


uis re-évaluera (а valeur retournée de cette première évaluation. 
* évaluation d'une macro ве fait donc en deux temps. 


C'est l'appel de (а macro tout entier qui est passé en argument, il est donc 
possibte de modifier dg ганне: cet appel à la prenière évaluation de La 
macro (voir Les exemples). IL existe une fonction qui permet de définir 
aisement des MACRO à La manière des fonctions DE DF ОМС DMI ou DMO. 


Ces MACRO ne doivent T être confondues avec les macro-fonctions d'entrée et 
5" ои (МАСІМ MACOUT) qui ne sont activées que pendant des lectures ou des 
critures. 
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(DM «at» <і> <в1> ... <sN>) [FSUBR] 
définit une fonction de type macro. Cette fonction а pour nom <at>, ва 
Liste d'arguments est <l> et son corps de fonction est «sl» ... <еМ>. 


DM ramène ie nom de la fonction en valeur, et peut être définie comme 
suit : 


«DF DM (L) (PUT «САН L) (CONS 'LAMBDA (CDR L)) ”МАСВО)) 


exemples d'utilisation des MACRO : 


 Кізізоп des arguments d'une MACRO : 


? (DM MAC (L) 

? (PRINT 'L Te L) ; cette MACRO édite son argument et ; 
? *(ADD1 35) % ramène (а forme (ADD1 3) qui sera ; 
- $ reévaluée. ; 

2 (МАС "9 


L = (МАС ”Х) 
4 


définition de la fonction MCONS sous forme de MACRO ; 


$ 
2% (DM MCONS (L) 
? (IF (NULL (CDDR L)) | 
? (CADR 1) 
? бе ['CONS (CADR L) (CONS 'MCONS (CDDR 122109) 
2 (MCONS 'A 'B 'O 
ы (А В ‚ С) 


exemp Le de modification physique du corps des 
fonctions contenant des MACRO ; 

(DM ZEROP (1) 

Шаа L CEO (CADR L) 015) 


4 9992. 
N 


(DE FACT (N) 


FAT (?ЕНОР М) 1 (TIMES М (FACT (SUB1 N))))) 


(FACT 5) 
72 


8-29 .9. 


~) 


(CDR "FACT? 
(EXPR (LAMBDA (N) 
(IF (Еа N 0) 1 (TIMES N (FACT (SUB1 N)))))) 


2.6 Le Mode AUTOLOAD 


Certaines fonctions utilisées fréquemment, comme les fonctions d’éditions ou 
de corrections, peuvent être chargées automatiquement à Leur premier appel. 
Ces fonctions doivent se trouver dans un fichier et peuvent être de n'importe 
quel type (EXPR FEXPR MACRO ARRAY SUBR compi lée FSUBR compilée ... ). Се 


fichier sera Lu par (а fonction LIBRARY, dans un des répertoires spécifiés par 
(а fonction PATHLIBRARY. 
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бі (а fonction ne se trouve pas dans le fichier indique, une erreur apparait 
dont {е Libellé est : 

жж undefined function 
La fonction AUTOLOAD permet de déclarer des fonctions de ce type. 


(AUTOLOAD «file» «atl» «at2» ... <atN>) [FSUBR] 


met L'indicateur AUTOLOAD sur Les différents atomes ati ...  atN. Ces 
fonctions devront se trouver dans le fichier de nom «file.VLI». Au ler 
appel de l’une de ces fonctions, le fichier «file» sera chargé en entier. 


ex : (AUTOLOAD PHENAR PHENARETE PHENARETEF ILE) 
déclare [ев deux fonctions PHENARETE et PHENARETEFILE de type AUTOLOAD, 
elles doivent se trouver dans le fichier PHENAR.VLI . 


2.7 L'évaluateur 


L’évaluateur 10. 3 (i.e. Les fonct Lons interpràte EVAL et APPLY) ont 
subi de nombreuses transformations qui Les rendent à la fois plus puissantes 
et ріне rapides. | | 


Мп mode de lancement rapide pour Les fonctions de type SUBR ou FSUBR est 
utilisé, si ces fonctions n'ont jamais été redéfinies. 


L'évaluateur minimise Le nombre de CONS internes, en utilisant Le moins 
passible La fonction EVLIS (et ce en particulier pour evaluer Les arguments 
des Lambda-expressions). 


Une particularité maîtresse de MISE, quelque soit l'implémentation, est 
d'interpréter itérativement (ев fausses récursivités (1). Itérativement est 
ісі défini en termes de ressources : un appel de fonction est itératif s’il 
ne demande pas plus de ressources que celles accordées à l'entrée de La 
fonction. Les ressources en questions sont les tailles de piles, ainsi que Le 
hombre de doublets. 


C'est ainsi que dans : 


(DE LOOPEVAL (IT) | 
(LOOPEVAL (PRINT (EVAL (READ))))) 


la suite des appels internes de LOOPEVAL ne provoquera PAS ип débordement (е 
pile, et bouclera, comme il se doit pour une boucle-systàme, indéfiniment. 


Cette propriété se conserve, quelque soit le niveau d'imbrication des appels 
dits itératifs dans les structures de contrôle mises en jeu dans le corps de 
fonction. 


Le système tratte également avec succès, les cas de CO-POST-RECURSION comme 
dans cette fonction qui imprime des permutations dans l'ordre Lexicographique. 


(DE PERMS (ND (F 0 NIL)) 
———————————————— 
(1) voir "Contribution à la définition interprétative et à L’ implémentation 
des  Lambda-langages" par Patrick GREUSSAY, Laboratoire Informatique Théorique 
x Programmation, Novembre 1977, No 78-2, 2 place Jussieu, 75221 Paris Cedex 
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(DE F (NIV E) 
(IF (LT NIV М) 
(Н (ADD1 NIV) (CONS 1 ED) 
(PRINT (REVERSE Е)) 
(G NIV (CAR E) (CDR ED») 


(ПЕ G (NIV X ED 
(IF (cu X ND 
(IF E 


| (8 (8181 NIV) (CAR E) (CDR E)) 
(H NIV «CONS (ADD1 X) E) 


(DE H (NIV E) 
(IF (MEMQ (САН Е) (CDR E)) 
(G NIV (CAR E) (CDR E» 
(F NIV E))) 


(PERMS 3 рт 

(1 2 3) 
(1 3 2) 
(2 1 3) 
(2 3 1) 
{3 1 2* 

= FINi 

= % time = 60 ms ; 


Dans ce cas seuls Les premiers appels de F,G et H consommeront de La pite, 
tous les autres n'en consommeront pas. | 


L'utilisation systématique de cette propriété induit un style très souple et 


trés naturel de programmation récursive, bien éloigné des horribles structures 
de contrále dites plates. | 
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2.8 MOSA 10 En MISA 10 


(DE TOP-LEVEL O 
; boucle principale ; 
(WHILE T 
(PRINT "Toplevel") 
(SETQ IT (PRINT (ESCAPE ERREUR (EVAL (READ))))))) 


(DE EVAL (forme) 

; evaluation d'une forme quelconque ; 

(COND 
(ХОН CNUMBP forme? (STRINGP forme)? forme) 
((LITATOM forme) 

(IF (EQ (САН forme) 'UNDEF) 

(ERREUR ["Atome indefini : " formel) 

. . . CAR. forme) )) 
(T CEVALF (САН forme) (CDR forme))))) 


(DE EVALF (fnt larg) 
s evaluation d'une fonction ; 
(COND 
((CLITATOM fnt) 
(SELECTQ (TYPEFN fnt) 
(SUBR (SUBR fnt (EVLIS larg))) 
(FSUBR (FSUBR fnt larg?) 
(ARRAY (ARRAY fnt (EVAL (CAR larg)))) | 
(AUTOLOAD (LIBRARY (GET fnt AUTOLOAD)) (EVALF fnt larg?) 
(EXPR (EVALF (GET fnt EXPR) Larg)) 
(FEXPR (APPLY (GET fnt FEXPR) Larg?) 
(MACRO (EVAL (EVALF (СЕТ fnt MACRO) forme))) 
(CIF (NEQ fnt (CAR fnt)) 
(EVALF (CAR fnt) larg) 
(ERREUR ["Fonction indefinie : " fnt1))))) 

CCNUMBP fnt) (CNTH fnt (EYAL (CAR larg)))) 

C(STRINGP fnt? (ERREUR. ["Fonction indefinie : " fntl)) 

(T CIF (EQ (CAR fnt) LAMBDA) 
(APPLY fnt (EVLIS larg?) 
(EVALF (EVAL fnt) lLarg))))) 


(DE EVLIS (1) 
% construit la Liste des valeurs des evaluations 


de tous les elements de L; 
(MAPCAR L 'EVALD) 


(DE APPLY (f ta 5; tvar tok) 
; applique la fonction f (lambda-expression) 
a la Liste d'arguments la ; 
(SETQ tvar (CADR £2) 
(PUSH ” жжМагкегжю 
(WHILE (LISTP tvar) 
(PUSH (CAR (мағ) (CAAR Lvar)) 
(SET (NEXTL tvar) (NEXTL 1а) )) 
(АМО tvar 
(PROGN (PUSH Lvar (CAR Lvar)) (SET tvar la))) 
(PROG1 
(EPROGN (CDDR f) 
(UNTIL (EQ (SETQ tok (РОР)) ”жжМагкегжж) 
(SET (POP) tok)))) 


(DE ERROR.UBV (atome) (CAR atome)) 
(PRINT "Pour lancer l'interprete : (TOP-LEVEL)") 
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CHAPITRE 3 


LES FONCTIONS STANDARD 


Toutes les fonctions qui vont être décrites dans ce chapitre sont résidentes 
dans [е système actuel. 
Pour chacune d'elles. оп donnera son type (SUBR ou FSUBR) ainsi que {е nombre 


ега d’arguments, et pour chaque argument Le type souhaité ces types étant 
notés : 


<s> pour une S-expression quelconque 
<і> pour une liste 


«a» pour un atome quelconque (atome littéral, nombre ou chaîne) 
«at» pour un atome littéral 


«c» pour un caractère (i,e, un atome dont Le P-length est égal à 1) 
«fn» pour une fonction (nom d'atome ou Lambda-expression explicite) 


Dans la mesure du possible, Les SUBR seront décrites en MIJA. 


3.1 Les Fonctions Interprète 
(EVAL «s») [SUBR à 1 argument] 


C'est la fonction principate de l’interprète. EVAL ramène la valeur de 
l'évaluation de l'argument «s» (voir La description de cette fonction en 
dans le chapitre précédent). 


ex : (EVAL ° (А001 55)) E 56 
(EVAL ' (2 '(AB C) E B 
(EVAL * CAR ° (CDR)) "(AB OD ІР (BO 
(APPLY «fn» <і>) [SUBR à 2 arguments] 
ramène (а valeur de l'application de la fonction «fn» à la Liste 
d arguments <і>. La fonction «fn» peut être de n'importe quel type (SUBR 
FSUBR EXPR FEXPR MACRO ARRAY AUTOLOAD ...) 
ex : (APPLY 'PLUS (LIST 5 (ADD1 8) (REM 10 3))) г” 15 
(APPLY (ADD1 2) '((A B C D E))) ES С 
(APPLYN «fn» «sl» ... <5№) ISUBR à М arguments] 
est une autre forme de la fonction APPLY. 
L'appel (APPLYN «fn» «sl» ... <sN>) est équivalent à L appel (APPLY «tn» 
(LIST <в1> ... <sN>)). 


ex : (APPLYN 'CONS 'A °В) x» (A.B 
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(SUBR «fn» <і>) [SUBR à 2 arguments] 


applique la définition de type SUBR de (а fonction «fn» à la Liste 
d'arguments <і> de la méme manière que le ferait la fonction APPLY. 
Toutefois si «fn» ne possède pas de définition de type SUBR, une erreur 
apparait dont le Libellé est : 

жж undefined function (SUBR) : «fn» 
dans lequel Le nom de (а fonction incriminée «fn» est imprimé. 
Cette fonction permet donc de lancer (а définition standard d'une 
fonction standard de type SUBR qui a été redéfinie par l'utilisateur. 


ex : (SUBR 'ADD1 ' (32) г” 4 


(DE CAR (X) 
(PRINT "J'entre dans CAR avec :" X) 
GT "J'en sors avec :" (SUBR 'CAR IX1)) 
I 


(CAR '(A B C») 

"J'entre dans CAR avec :" (А В С) 
"J'en sors avec :" А 

ES A 


(FSUBR «fn» <і>) [SUBR à 2 arguments] 


applique la définition de type FSUBR de la fonction «fn» à la liste 
d'arguments «i» de la même manière que le ferait la fonction APPLY. 
Toutefois si «fn» ne possède pas de définition de type FSUBR, une erreur 
epparait dont le Libellé est : 

жж undefined function (FSUBR) : «fn» | | 
dans lequel Le nom de la fonction incriminée «fn» est imprimé. 
Cette fonction permet donc de Lancer (а définition standard d’une 
fonction standard de type FSUBR qui a été redéfinie par l'utilisateur. 


ех: (DF INCR (D 


(IF (МЕМО (CAR L) '(X Y 25) 
(PRINT "J' incrémente :" (CAR L) Te (FSUBR INCR L?) 
(FSUBR 'INCR L))) 
ұғ INCR 
(SETQQ A 5 X 3) тү” 3 
(INCR A) ІІ” 6 


(ІМСВ X) "jJ'incrémente :" X = 4 y» 4 


(EVLIS <l>) [SUBR à 1 argument] 


ramène une liste composée des valeurs des évaluations de tous les 
éléments de la liste <і>. 


Cette fonction peut être décrite еп MSA : 


(DE EVLIS (10 
CIF (NULL L) 


% 
(CONS (EVAL (САН 12) (EVLIS (CDR 12222) 
ex : (SETQ L ? (CADD1 5) (ADD1 7) CADDI 9))) 


ET ((ADD1 5) (ADD1 7) (ADD1 9)) 
(EVLIS L) xp (6810 
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(EPROGN <і>) [SUBR à 1 argument] 


évalue séquentiellement tous les éléments de la liste <і>. EPROGN ramène 


en valeur la valeur de la dernière évaluation (i.e. celle du dernier 
élément de «1»). 


Cette fonction peut être décrite en М9 : 


(ПЕ EPROGN (1) 
(IF «NULL. (CDR 102 
(EVAL (CAR 1)) 
(EVAL (CAR 0) 
(EPROGN (CDR 1)))) 


ex : (SETQ L '((PRIN1 1) (PRINI 2) (PRIN1 3))) 
D"  ((PRIN1 1) (PRINT 2) (PRIN1 3)) 
.(EPROGN L) 123 p> 3 


(PROG1 «s1» ... <sN>) IFSUBR] 


évalue séquentieliement (ез différentes expressions «sl» ... «sN». 
PROGI ramène la valeur de la première évaluation (i.e. celle de <51>). 


ex : (PROG1 (PRIN1 1) (PRIN1 2(PRIN 3)) 123 t» 1 


(PROG2 «si» «s2» ... <sN>) IFSUBR] 


évalue séquentiellement les différentes expressions «sl» «s2» ... «sN». 
ROG2 ramène en valeur de la deuxième évaluation (i.e. celle de «s2»). 


ex : (PROG2 (PRIN1 1) (PRIN1 2) (PRINI1 3) 123 > 2 


(PROGN «s1» ... <sN>) (FSUBRI 


évalue les différentes expressions «sl» ...  «sN».  PROGN ramène Le 
. valeur de la dernière évaluation (i.e. celle de «sN»). 


ex : (PROGN (PRIN1 1) (PRIN1 2 (PRIN1 3» 123 p 3 


(POUR «at» <sl> ... <в№>) IFSUBR) 


Si l'atome littéral «at» est l’atome EVAL, l'interprète va évaluer les 
différentes expressions «sl» ...  «sN» à la manière d'un PROGN et POUR va 
donc ramener la valeur de «sN». Еп revanche si l'atome «at» n'est pas 
EVAL, l’interprète va se désintéresser complètement du reste des 
expressions et ramener із valeur NIL. 

Cette fonction permet donc de ne faire évaluer des expressions que par 
des programmes bien définis. Ces programmes doivent interpréter toutes 
les expressions lues en filtrant Les POUR qui les intéressent. 


Les POUR actuellement interceptés sont : 

~ EVAL par i'interpràáte standard 

- PRETTY par [е PRETTY-PRINT et Le CROSS-REFERENCE 
- INDEX par l’indexeur 

- COMPIL par Le compilateur 


ex * l'occurence de 


(POUR PRETTY (STATUS 6 8)) 
dans un fichier indique au PRETTY-PRINT et à lui-seul 
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0000 PP 


d' imprimer tous les nombres en octal. 


(QUOTE <s>) [FSUBR] 


ramène іа S-expression «s» non-évaluée. Cette fonction est utilisée 
comme argument des fonctions de type SUBR dont on ne désire pas évaluer 
Les arguments. IL existe un macro-caractére standard qui facilite cette 
écriture, la caractère quote (l'apostrophe) ' . 


ex : (QUOTE «АППІ 4)) KP (ADDI 4) 
* (А (В C» kP (A (В С)) 
"А ЇР А 
"А ЕР TA 


(FUNCTION <s>) [FSUBRI 


est équivalent à QUOTE. FUNCTION a été ajouté par souci de compatibilité 
avec d'autres systèmes LISP qui utilisent cette fonction comme 
déclaration pour le compilateur, mais dont l'effet est identique à іа 
fonction QUOTE. 


ex : (FUNCTION (LAMBDA OO X)) rp» (LAMBDA OO X) 


(ID <s>) [SUBR à 1 argument] 


c'est La fonction identité : ID ramène l'expression «s» qui est évaluée. 


ex : (ID ? 


| E А 
(ID «АППІ 3)) г” 4 


(COMMENT ...2 IFSUBRI 


est une fonction qui permet d'introduire des commentaires dans une 
définition de fonction. La valeur de cette fonction est toujours l'atome 
COMMENT. ATTENTION : cette fonction ne peut être placée qu’en MILIEU de 
pe pour ne pas perturber les évaluations. 

ans la pratique les commentaires seront introduits, еп tous Lieux, 
encadrés du délimiteur spécial point-virgule. 


ex : (COMMENT) E» COMMENT 
(COMMENT et voila pourquoi) E COMMENT 


(LAMBDA «s» «si» ... <sN>) [FSUBR] 
La valeur d'une forme LAMBDA est cette forme elle-même. Cette nouvelle 
fonction a été rajoutée pour éviter de "quoter" les Lambda-expressions 
explicites des fonctionnelles. 
ex : (LAMBDA OO X) E? (LAMBDA (X) X) 
(МАРС ? (А B С) (LAMBDA OO (PRINI ОО АВС x NIL 


(LASTCALL <n>) [SUBR à 1 argument] 


si «n» n'est pas fourni, ramène en valeur le corps de (а dernière 
fonction appelée dynamiquement (i.e. La LAMBDA-expression qui contient 
l'appel de LASTCALL) sous la forme d'une LAMBDA-expression. Si «n» est 
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donné, LASTCALL ramàne le corps du <n>ième dernier appel. S’il n'y a pes 
би аи moins «n» appels, LASTCALL ramène NIL. Cette fonction est utilisée 
pour réaliser des traces (voir Le chapitre sur tes traces). 


ex : ((LAMBDA O (PRINT (LASTCALL)))) 
(LAMBDA NIL (PRINT (LASTCALL))) 
D (LAMBDA NIL (PRINT (LASTCALL))) 


(DE РОО (L) (FUU L) "ОУ 1” FOO 


«DE FUU (DD ` | | 
(PRINT 'жж 1 re (LASTCALL 12) 

(PRINT "ee 2 re (LASTCALL 23) 

15. pr FUU 


(FUU 6) 
жж 1 = (LAMBDA (L) (PRINT "ae 1 (LASTCALL 1)) (PRINT 
к 2 (LASTCALL 2)) 
жж 2" (LAMBDA (L) (FUU L) "ОЮ 
p 


(SELF. «si» ... <sN>) [SUBR à N arguments] mE 
appelle Le dernière Lambda-expression utilisée dynamiquement avec «si» 
... <ӘМ> pour arguments. Cette fonction permet de résoudre Le prob Lème 
des anciennes fonctions LABEL sans avoir à nommer obligatoirement les 
lambda-expressions explicites récursives. Si SELF est employée dans un 
mauvais contexte (i.e. à l'extérieur d'une LAMBDA-expression), une 
erreur pua dont le Libellé est : | 
жж SELF error. 


SELF pourrait être défini en VIS de la manière suivante : 


(DF SELF ui 
dP wë 2) 


APPLY (LASTCALL 2) (ЕУІ 16 |12) 
«ERROR "SELF error,"))) 


ех: CLAMBDA (L) | 
(IF (NULL. (CDR L)) 
| (CARL) ` 
(SELF (CDR L)))) 
(AB CD) 
E D 


3.2 Les Prédicats De Base 
3.2.1 Tests Sur Les Types - ` 


(АТОМ <s>) [SUBR à 1 argument] 


teste si «s» est un atome, i.e. un atome littéral, un nombre ou une 
chaîne. АТОМ ramène T si ce test est vérifié, NIL dans le cas contraire. 


ex : (АТОМ 'ARGH) b Т 
(ATOM 42) E T 
(АТОМ "OUPS" ІР T 
(АТОМ ° (А В) tr NIL 
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(LITATOM <s>) [SUBR а 1 argument] 
| teste si <s> est un atome littéral. LITATOM ramène T si Le test est 
vérifié et NIL dans Le cas contraire. 


ex : (LITATOM "ARGH) E T 
(LITATOM 43) Іі NIL 
(LITATOM "OUPS") C NIL 
(LITATOM ? (A BD) rx» NIL 


(LISTP <s>) [SUBR à 1 argument] 


teste Бі «s» est une Liste. LISTP ramène T si te test est vérifié et NIL 
dens le cas contralre. 


ex : (LISTP 'ARGHD  C NIL 
(LISTP 44) pe NIL 
(LISTP "OUPS") EF NIL 
(LISTP '(4BD rm T 


(NULL <s>) [SUBR à 1 argument] 


teste si «s» est égal à NIL. NULL ramène T si le test est vérifié et NIL 
dans (е cas contraire. | 
ex : (NULL NIL) тг” T 

(NULL T) EC NIL 


(NOT <s>) [SUBR à 1 argument] 
cette fonction est identique à NULL. 


3.2.2 Les Comparaisons - 


(BOUNDP <at>) [SUBR à 1 argument] {pour BOUNDed Predicate) 


teste si l’atome littéral «at» donné en argument possède une valeur (plus 
précisement possède une C-valeur différente de ). Ce prédicat est 
utilisé pour tester des variables Libres sans crainte de l'erreur жж 
UNDEFINED VARIABLE. | 


ex : (SETQ XX 33) p 33 
(BOUNDP ? XX) Іі Т 
(BOUNDP '?co?) Б" NIL 
(si ?co? apparait pour la première fois) 


(БОР «s1» <52>) [SUBR à 2 arguments] (pour EQ Pointer) 
sert à tester 2 atomes Litéraux. БОР ramène T si «sl» et «s2» sont Les 
mêmes atomes Litéraux, sinon ЕОР ramène NIL. Si «sl» et «s2» sont des 
nombres, des chaînes ou des listes, EQP teste si «el» et «s2» ont (а même 
adresse physique. 


ex : (ЕОР "A (CAR ' (AD E” Т 
(ЕОР '(A В) '(A B) > NIL 
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(NEQP «si» <в2>) [SUBR à 2 arguments] {pour Not EQ Pointer) 
est équivalent à (МОТ (EQP «si» <52>)). 


(EQ <61> <s2>) [SUBR à 2 arguments] 


sert à tester 2 atomes (de n'importe quel type : atome littéral, nombre 
ou chaine). ЕП ramène T si les 2 atomes «sl» et <s2> sont égaux et NIL 
s'ils пе [е sont pas. 
Rappelons que : MM | EM 

- 2 atomes litéraux sont égaux s'ils ont із même nom externe 

- 2 nombres sont égaux s'ils ont ia móme valeur. 

- 2 chaînes sont égales si elles ont La même Longeur et contiennent Les 
mêmes caractères. 
Si <в1> et <s2> sont des listes, EQ teste si «si» et «s2» ont la méme 
adresse physique (de (а même manière que la fonction ЕОР). 


ex : (EQ "A (CAR * (A))) p Т 
(EQ (А001 119) 120) гт T 
(EQ "STRR" "STRR") ТТ 
(EQ *(A B) ' (A BD E NIL 
(NEQ <sl> <s2>) [SUBR à 2 arguments] {pour Not EQ) 


est equivalent à (NOT (EQ «si» <52>)). 


(EQUAL «si» <s2>) [ISUBR à 2 arguments] | | 
est la fonction de comparaison la plus générale. EQUAL teste si <si> et 
<62> ont la même structure. Si Le test est verifié, EQUAL ramène T dans 
le cas contraire EQUAL ramène МІ. EE 
EQUAL peut se définir өп MOSA : 

(DE EQUAL (11 12) 
(COND (САТОМ 11) (EQ 11 125) 
(САТОМ 12) NIL) | 
XT «AND «EQUAL (CAR 11) (CAR 120) 
(EQUAL (CDR 11) (CDR 1202029 


ex : (EQUAL "ХА (B. C) D) '(А В. O D) pm T 


(NEQUAL «si» «s2») [SUBR à 2 arguments] 
est équivalent à (NOT (EQUAL «sl» <s2>)) 


3.3 Les Fonctions De Contrôle 


http://www.artinfo-musinfo.org VLISP 10.3 Manuel de référence, août 1978, page 29 / 224 


Раде 28 МЫ Р 10. 3 Manuel de Référence 
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3.3.1 Les Fonctions De Contró!e De Base - 


(OR «sl» ... <sN>) [FSUBR] 


(AND 


évalue successivement les diffrentes expressions «sl» ... <sN> jusqu'à 
ce que l’une de ces бәайыл cons ait une valeur différente de NIL. ОН 
ramène cette valeur. 


ех: (OR NIL МП 23) pe ? 


«sl» ... «sN») IFSUBRJ 


évalue successivement les différentes expressions «sl» ... <5№. Si (а 
valeur d'une de ces évaluations est égale à NIL, AND ramàne NIL sinon AND 
ramène la valeur de ia dernière évaluation <sN>. AND permet de 
construire une structure c. contrôle de type : 

si «si» alors Si «52» sior5 ... <N 


ex : (AND 1 2 3 4) ре 5 
(AND 1 2 OQ 4) Er NIL 


(IF <в1> «s2» «s3» ... <өМ>) ІГОІИВВ) 


бі іа valeur de i'évailuc: on de «sl» ss" différente de NIL, IF ramène La 
valeur de l'évaluation c. l'expression ::2>, sinon IF évalue en séquence 
les différentes expressio: +83 ... «s> әй ramène (а valeur de la 
dernière évaluation «s^. ІР permet de construire une structure de 


contróle de type : 


CIFN 


si «si» alors «s2» sinon «s?» ... «М» 


=. ПЯЕТ129) 1” 


(IF NIL 123) p 


(DE ACK (x y) 
| (IF (= x 0) 
(1+ y) 
(АСК СЕ P yos) 


(АСК s (3e 3000») 


«sl» «s2» «s3» ...  «sN». !FSLB TJ {pour ЇР Not) 


si (а valeur de U'évaluat оп de «s1» есі égale à NIL, ТЕМ ramène La 
valeur de l'évaluation de l'expression «s2», sinon IFN évalue en séquence 
Les différentes expressions «52- ... «ей» et ramène la valeur de la 
derniére évaluation  «sN-. ici pe st de construire une structure de 
contróle de type : 

бі non «sl» alors end sinon «s3» ...  «sN» 


ex : (IFN T12 3) D 3 
(IFN NIL 123) rF i 


(COND «l1» ... <ІМ>) [FSUBRI 


est l'instruction сопбізіселеіін із plus générale. Les différents 
arguments «ll» ... zii» sorti dés Listes appelées clauses qui ont La 
structure suivante : 
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(<ss> «sl» ... <sN>) 
COND va sélecter une seule de ces clauses : celle dont la valeur de 
L'évaluation de son premier élément «ss» est différente de NIL. COND 
évalue alors en séquence les différentes expressions «sl» ...  «sN» et 
ramène La valeur de La dernière évaluation «sN». Si la clause sélectée 
n'a qu'un élément «ss», COND ramène la valeur de L'évaluation de «ss» 
(i.e. La valeur qui а déclenché la sélection de cette clause). COND 
permet de construire des structures de contrôle de type : 
Sİ ... alors ... sinon sl ... alors ... ... 
Si aucune clause n'est sélectée, COND ramène NIL. 


donc : 
COND est equivalent à (COND 
(pl ell е12 e13) (pl (PROGN eli ө12 e13)) 
(p2 e21 e22) (p2 (PROGN e21 e22)) 
(p3 ( (SETQ aux p3) aux) 
(ра e41)) (ра e41)) 


ex : (COND (NIL 1 2) T345) p 5 


(COND ((ZEROP X) ZERO) 
((QDDP X) "ІМРАІВ) 
((EVENP X) 'PAIR) 
(T 'HWhat?!?)) 


(SELECT <s> «l1» ... «М» <Lf>) IFSUBR] 


comme pour la fonction COND, SELECT va sélecter une des clauses «li» ... 
«IN». Le sélecteur de ces clauses est la valeur de l'évaluation de «s», 
{а sélection s'effectue par comparaison (au moyen du prédicat EQUAL) du 
Sélecteur avec [а valeur de l'évaluation du premier élément de chacunes 
des clauses «li» ... «iN». Dès qu'une clause est sélectée, SELECT 
évalue. séquentiellement (в reste de La clause et ramène (а vateur de la 
dernière évaluation. бі aucune des clauses <11> e.. <ІМ» n'est 
&6lectée, la dernière clause «Lf» est évaluée; SELECT ramène la valeur 


de (PROGN «Lf. SELECT permet donc de construire facilement des 
aiguil lages. 


ex : (SELECT (ADD1 9) 
(12 'BOF) 
((SUB1 11) 'OUD 
C NANDO 
r> OUI 


(SELECT (PLUS 5 5) 
CZZ 'BOF) 
C(A B) 'HUMD 
C NAN) ) 

Ы” МАМ 


(SELECTQ «s» «t1» ... «QN» <lf>) [FSUBR] 


comme pour la fonction COND, SELECTQ va sélecter une des clauses «ii» >. 
«iN». Le sélecteur de ces clauses est (а valeur de l'évaluation de «s», 
(а sélection s'effectue par comparaison du sélecteur. avec : . | 
- le CAR (non évalué) de la clause si ce CAR est atomique (en utilisant 
(е prédicat EQ) 

- les différents éléments du CAR (поп évalué) de cette clause en 
utilisant (а fonction MEMBER. L'utilisation de cette fonction permet 
d'avoir des sélecteurs de type liste. 


Dès qu'une clause est sélectée, SELECTQ évalue en séquence le reste de La 
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clause et ramène la valeur de la dernière évaluation. 

Si aucune des clauses «li» ... <ІМ> n'est sélectée, SELECTQ évalue 
automatiquement La dernière clause «lf» et ramène la valeur de (PROGN 
<lf>). SELECTQ permet donc de construire des aiguillages sur valeurs 
constantes. 


ex : (SELECTQ 'ROUGE 
(VERT 'ESPOIR) 
( (BLEU ROUGE JAUNE) 'OK) 
C NON) ) 
p OK 


(SELECTQ "RB AN 
| (VERT ESPOIR) 
( (BLEU ROUGE JAUNE) ”ОЮ) 
(* NON) > 
E NON 


(WHILE <s> «sl» ... <sN>) IFSUBR] 


tant que la valeur de l'évaluation de «s» est différente de NIL, WHILE va 
évaluer en séquence les différentes expressions «sl» ... <sN>. WHILE 
ramène toujours NIL en valeur (qui est 1а dernière évaluation de <s> qui 
fait sortir de іа boucle WHILE). Cette fonction permet de construire des 
boucles conditionnelles d’une manière fort commode, ainsi que des boucles 
infinies en utilisant (а forme : (WHILE Т... A, 


WHILE est équivalent à la forme MIF 
(LET О (IFN «s» NIL <si> ... <sN> (SELF))) 


ex : (SETQQ L (ABCD) ` B (ABC D) 
. …. (WHILE L (PRINT. (NEXTL DD) AB CD xr NIL 


(UNTIL «s» «si» ... <sN>) IFSUBR] 


tant que la valeur de l'évaluation de «s» est égale à NIL, UNTIL va 
évaluer en séquence les différentes expressions «sl» ... <sN>. UNTIL 
ramène (а valeur de l'évaluation de «s» qui a fait arrêter (а boucle. А 
La Ына ramenée près, UNTIL est l'équivalent de (WHILE (МОТ <s>) «sl» 
... <sN>). | 


ex : (SETQQ L (AB2C DD іт (AB 20C D) 
| (UNTIL (NUMBP (CAR L)) (PRIN1 (NEXTL L))) АВ y 2 


(REPEAT «s» «si» ... <sN>) [FSUBR] 
évalue «s». Cette valeur doit être un nombre «n». REPEAT évalue alors 
«n» fois Les différentes expressions «sl» ... <sN>. Si l'évaluation de 
«n» n'est pas un nombre strictement positif, la boucle n'est pas exécutée 
et REPEAT ramène NIL, sinon REPEAT ramène із dernière évaluation de «sN». 


ex : (REPEAT 10 CPRIN1 "ЖО жжжжжжжжжж ID ж 
(REPEAT 0 (PRIN1 '*)) E” NIL 
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(REPEATUNTÍL «si» «s2» ...  «sN» <s>) [MACRO] 


Rd а une boucle WHILE avec le test en fin de corps de boucle. 
REPEATUNTIL correspond donc à la forme : 
(WHILE (PROGN <51> «s2» ...  «sN» «s»)) 


ATTENTION : cette MACRO se trouve dans іе fichier SYS:VLISP.INI (cf: 


L'Appendice А) qui est normalement chargé à l'appel de MIS (voir Le 
chapitre Configuration). 


3.3.2 Les Fonctions D'échappement - 


(LESCAPE <sl> ... <sN>) [FSUBR] (pour Lambda ESCAPE) 
évalue les différentes expressions «sl» ... <sN> en séquence et ramène 
la valeur de la dernière évaluation <sN>. Пе plus LESCAPE fait sortir de 
la dernière Lambda-expression connue (fonction utilisateur ou 
Lambda-expression explicite) avec pour valeur La valeur du LESCAPE. 
Si cette fonction n’est pas utilisée à l’intérieur d’une 


lambda-expression (par exemple dans le corps d'un ESCAPE, d’un PROG, d'un 


ou méme au top-level) une erreur apparait dont le Libellé est : 
жж LESCAPE ERROR. 


Ех: (LET ((n 5) (L NIL)) 
(WHILE T 


(IF (ZEROP n) 
(LESCAPE 10 
| .. (МЕМ L (DECR n))))) 
p 012324 


(ESCAPE «at» «s1» ... <sN>) IFSUBRI 


est la fonction de contrôle la plus puissante des systèmes MIS | «at» 
est un atome littéral qui devient le nom d'une fonction d' échappement, 
puis (ев différentes expressions «sl» ...  «sN» sont évaluées en 
séquence.. бі au cours de ces évaluations une forme de type («at» «ssi» 
s.. <56№) est rencontrée, (ев différentes expressions «ssl» ...  «ssN» 
sont évaluées et ESCAPE ramène la valeur de la dernière évaluation (i.e. 


celle de <ssN>). Si une telle forme n'est pas rencontrée, ESCAPE ramène 
(а valeur de l'évaluation de «sN». 


ex : (ESCAPE EXIT 
(МАРС '(A B 2 C) 
ni ылы (X) «АМО (QNUMBP X) (EXIT "00120202 


E OUI 


(ESCLOOP «at» «si» ... <sN>) [MACRO] 


est une macro qui permet de fabriquer des boucles contrôlées par une 
fonction d’échappement. 


(ESCLOOP «at» «si» ... «sN») correspond à l'appel : 


(ESCAPE «at» 
(WHILE T «s1» ... <sN>)) 


ESCLOOP est donc identique à une fonction d'échappement ESCAPE dont le 
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se a qq 


corps est évalué tant qu'il n'y а pas d'eppel de (а fonction 
d'échappement «at». 


ATTENTION : cette MACRO se trouve dans (в fichier SYS:VLISP.INT (cf: 


L'Appendice A) qui est normalement chargé à l'appel de (voir Le 
chapitre Configuration). 


3.3.3 Les Fonctions De Contróle De Type PROG - 


Ce type de structure de contrôle permet à l'usager conservateur d'écrire des 
P wao sans structure, vertu nocturne partagée avec certains autres 
langages. | 8 | | | 
On peut se "brancher à des étiquettes" (fonctions GO еї GOTO), sortir d’un 
corps de PROG comme en FORTRAN (avec із fonction éternelle : RETURN), et 
faire des "boucles" comme en ALGOL avec (а fonction DO. 

Ce type de structure de contrôle а été conservé dans un souci de compatibilité 
avec certains autres systèmes LISP qui ne possèdent que ce type de structure 
de contrôle, les fonctions d'échappement des systèmes étant à (а fois 
plus puissantes et plus rapides à 1° interprétation. 


(PROG <і> «si» ... «sN») IFSUBR] 


<і> est une Liste d'atomes litéraux qui servent de variables locales à 
L’ interieur du PROG. Elles sont Liées à La valeur NIL à l'entrée du PROG 
et restaurées à leurs anciennes valeurs au retour du PROG. Cette 
protection des variables locales ne porte que sur leurs C-valeurs. Cette 
Liste de variables locales peut être vide mais ne peut pas être omise. 
«si» ... <sN> est une Liste de formes qui sont évaluées en séquence. Si 
dans cette Liste se trouvent des atomes, ils sont considérés comme des 
étiquettes et ne sont donc pas évalués. |а valeur d'un PROG, s'il n'est 
pas interrompu par un RETURN, est La valeur de l'évaluation de <sN>. 


(GO <a>) IFSUBR] 


«a» est un atome de n'importe quel type (atome littéral, nombre ou 
chaîne) et doit être Le nom d'une étiquette existante d'un PROG actif. 
L'évaluation de La forme (GO <a>) fait reprendre l’évaluation à la forme 
Pb suit l'étiquette «a». Si «a» n'est pas une étiquette connue ou si la 

orme (GO <a>) apparait à l'exterieur de tout PROG, une erreur apparait 
dont le libellé est : 

жж LABEL ERROR : «e» 
dans lequel Le nom de l'étiquette incriminée est imprimé. 


(СОТО <s>) ISUBR à 1 argument] 


est identique à La fonction GO mais l'argument «s» est évalué et doit 


Гемепег une etiquette еп valeur sous peine de déclencher l'erreur LABEL 


(RETURN <s>) (SUBR à 1 argument] 


sort du PROG courant. La valeur du PROG est celle de l'évaluation de 
Se Si une forme (RETURN <s>) apparait dynamiquement en dehors d'un 
PROG, une erreur apparait dont le Libellé est : 

жж RETURN ERROR. 
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(DO (<at> «si» «sr») (<p> «rl» ... <rN>) «sl» ... <sN>) IFSUBRI 


permet de construire des boucles de manière aisée, avec une (ou 
pee variable de contrôle. 

ette variable de contrôle «at» est équivalente à une variable locale де 
PROG mais est initialisée à L’entrée du DO avec la valeur de l'évaluation 
de «si» , et aprés chaque itération (i.e. chaque évaluation de  (PROGN 
«sl» ... «sN»)) elle prend La nouvelle valeur «sr». La boucle s'arrête 
quand la condition d'arrát «p» est vérifiée et Le DO ramène (а valeur de 
L'évaluation de (PROGN «r1» ... <rN>) i.e. (а valeur de «rN». 


l'appel : 


(DO (I 0 (ADD1 1)) 
((EQ | en (TERPRI) 'OK) 


012345678910 
т OK 


est équivalent à : 


(PROG (1) 
(SETQ I 0) 
(UNTIL 
(PROGN (PRIN1 1) (EQ I 10» 
(SETQ І (А001 1))) 


(TERPRI) 
dr A 


11 existe une deuxième forme de DO comportant plusieurs variables de 
contrôle, (а syntaxe du ler argument devient : | | 

((etl sil srl) ...  (atN siN srN)) 
(а forme du DO devient donc : 


(DO ((«atl» «sil» <srl>) ... («atN» «siN» <srN>)) | 
(«p» «ri» ... «rN») 
«sl» ... «sN») 


Dans ce cas les différentes valeurs d’ initialisation «sil» ... | «siN» 
sont évaluées dans le contexte de l'appelant (i.e. avant toute Liaison 
de variables de contrôle), et Les variables sont .initialisées еп 
‚ PARALLELE . De même les différentes valeurs d'itération sont évaluées 


avant toute nouvelle affectation, et les variables sont re-affectées еп 
PARALLELE. 


Tout comme dans un PROG, il peut y avoir des étiquettes dans le corps du 
et il est possible de retourner d'un DO en utilisant 1° instruction 


DO 
RETURN. 
ех: (DE MAPL (fn x y) 
= (DO ((x x (CDR x)) О DEM 
(y y (СОВ vii 
(z О (cons (fn (CAR x) (CAR vii z))) 
(ХОН (NULL x) (NULL уу) 
(FREVERSE 22222 
(MAPL 'CONS ' (4B C) "(DEF G) r* (A.D (В. E) (С. F)) 
Formes dégénérées de DO : 


(00 О О «sl» ... <sN>) est équivalent à 
(PROGN «sl» ... «sN») s'il n'y a ni étiquettes ni GO ni GOTO 


* 
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Weg 


(DO О (NIL) «si» ... «sN») est équivalent à 
(UNTIL О «sei» ... <sN>) 


ou (WHILE Т «si» ... <sN>) même remarque que précédement 


(DO GO О «si» ... «sN») est équivalent à 
(PROG (x) «si» ... <sN>) 


(CYCLE) [FSUBR] 


permet de sortir d'un corps de DO ей de revenir au niveeu du test 
d'itération. ATTENTION : CYCLE est différent du RETURN qui fait sortir 
de (а fonction DO entiérement. 


Une fonction DO possédant des appels de CYCLE peut étre décrite au moyen 
d’un PROG de la manière suivante : 


(PROG (atl ... atN) 
(SETQ atl sil 


. e +. 


atN siN) | 
(UNTIL (РВООМ (ESCAPE CYCLE 51... sN) p) 
(SETQ ati srl 
atN srN)) 
51 


sN) 


Si une forme (CYCLE) apparait dynamiquement en dehors d’un DO, une erreur 
apparait dont le Libellé est : 
жж CYCLE ERROR. 


3.3.4 Les Fonctionnelles ~ 


Toutes ces fonctions sont de type SUBR et utilisent des fonctions <fn> еп 
argument. Ces fonctions peuvent être de n'importe quel type (SUBR , EXPR ...) 
fais seuls leurs premiers arguments seront liés à des objets variables, tous 
les autres seront Liés а МІ. 


(SOME <і> <fn>) ISUBR à 2 arguments] 


applique successivement La fonction «fn» à tous les éléments de la Liste 
<і> jusqu’à ce qu'une de ces applications livre une valeur différente de 
NIL qui est ramenée en valeur. 


ex : (SOME "(А В 2 C) 'NUMBP) Іі” 2 
(SOME "(АВ 2 C) 'LISTO t> NIL 


(EVERY <і> <fn>) [SUBR à 2 arguments] 
applique successivement la fonction <fn> à tous (ев éléments de la liste 
<l>, Si l’une de ces applications livre une valeur égale à NIL, EVERY 


ramëne NIL, sinon EVERY ramène la valeur de la dernière application. 


ex z (EVERY ' (A B 3 С) 'ATOPD E Т 
(EVERY '(A B З C) 'LITATOD ІР” NIL 
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(ORF «s» <#п1> ... <fnN>) [SUBR à N arguments] 


applique Les différentes fonctions <fnl> ...  «fnN» à l'argument «s» 
jusqu'à ce que l’une de ces applications Livre une valeur différente de 
NIL qui est ramenée en valeur, sinon ORF ramène NIL. 


ex : (ORF 3 'LITATOM 'NUMBP 'LISTPD C 3 
(ORF 3 'LITATOM 'LISTP) E NIL 


(ANDF «s» <fnl> ... <fnN>) ISUBR à N arguments] 
applique Les différentes fonctions «fnl» ... <fnN> à l'argument «s». Si 
l’une de ces applications Livre une valeur égale à NIL, АМОҒ ramàne NIL 


Sinon АМЕ ramène (а valeur de la dernière application (i.e. celle de 
(«fnN» <ө>)). 


ex : (АМЕ 3 'GZP 'ODDP 1” 3 
(АМОЕ 4 'GZP 'ODDP ІР” NIL 


(МАРххх <і> «fn») [SUBR à 2 arguments] 


Elles permettent d'appliquer Le fonction «fn» sur certains sous-ensembles de 
la Liste <і>. 


applique 1а fonction «fn» sur | ramène en valeur 


om 


<l> puis sur Les CAR <l> puis sur | 
ses successifs toutes ses 
successifs de <і> sous-structures 
—————— cu аас 
| 
MAP | MAPC | MAPS NIL 
| —————M——MMMÀ——— 
la Liste des valeurs 
MAPL IST MAPCAR MAPSUB de toutes les 


applications 


| (а Liste des valeurs : 
MAPT MAPCT MAPST différentes de NIL 
de toutes les 
epplications 


Les fonctions de type MAPS (elles n'existent qu'en MIS) permettent Багаа 
des structures arborescentes. Elles opèrent өп ordre préfixe sur Les САН. 


ex : (МАР '(A (B C) D) 'PRIND 
(А (B С) D) 
((B C) D) 
(D) 
ІР NIL 
іы "(А (В C) D) 'PRIND 
(B C) 
D 
Іі” NIL 


(MAPS ”(А (B C) D) 'PRINT) 
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à (B C) D) 
((B C) D) 
(B C) 

B 

(C) 

C 

(D) 

D 

I» NIL 


(LIT <і> «s» <fn>) [SUBR à 3 arguments] 


applique La fonction «fn», à 2 arguments, en utilisant d'une part le CAR 
de la Liste <і> et d'autre part le résultat de l'application de cette 
même fonction avec Le CDR de la liste si la Liste n'est pas vide ou bien 
l'expression «s» si la Liste est vide. Le francais n'étant vraiment pas 
récursif, voici La description de cette fonction en WLISP| š 


(DE LIT (L s fn) 
(IF (NULL 1) 


S 
(fn (CAR 1) (LIT (CDR 0) s fn)))) 


LIT permet d’écrire des définitions très élégantes et concises 


(APPEND x y) (LIT x y 'CONS) 2 i, 
(MAPCAR t fn) = (LIT L O (LAMBDA (x y) (CONS (fn x) y))) 


3.4.1 Les Recherches Sur Des Objets MIS - 


(CAR <s>) ISUBR à 1 argument] 


si «s» est un atome littéral, ramène ва C-valeur (i.e. (а valeur 
associée à cet atome considéré comme une variable). | 
Бі «s» est une liste, ramàne son premier élément. 

Le CAR d'un nombre ou d'une chaîne est indéterminé. 


ex : (CAR ' (A B C)) E А 
(SETQ X (U P) ІР (UP) 
(CAR "00 ЮР (UP) 


(CDR <s>) ISUBR à 1 argument] 


si «s» est un atome littéral, ramène sa P-liste. 
Si «s» est une liste, ramène cette Liste sans son premier élément. 
Le CDR d'un nombre ou d'une chaîne est indéterminé. 


ex : (CDR ' (A B C)) E BO 
(PUT °X "(U P 'I XP X 
(CDR °Х) к” (I CU P)) 
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(C....R <s>) ISUBR à 1 argument] 


(ев 28 combinaisons de CAR et de CDR imbriqués sont disponibles. 
(CADR <s>) est équivalent à (CAR (CDR <s>)) 

(CDAAR <s>) est équivalent à (CDR (CAR (CAR <ө>))) 

(CADDDR <s>) est équivalent à (CAR (CDR (CDR (CDR <=>) ))) 


(MEMQ «a» <і>) ISUBR à 2 arguments] 


бі l'atome «a» est un élément de la liste <і>, ramène (а partie de la 
Liste <і> commençant à l'atome «a», sinon ramène NIL. Cette fonction 
utilise le prédicat EQ pour tester la présence de l'atome «a» dans (ә 


Liste. 
ex : (MEMQ "С '(A B C D ED ES СОР) 
. (MEMQ 'Z '(A B C D ED E МП 


(MEMBER «s» <і>) ISUBR à 2 arguments] 


si l'expression quelconque «s» est un élément de la liste <і> ramène la 
partie de <і> commençant à l'expression «s», sinon ramène NIL. Cette 
fonction est identique à la fonction MEMQ mais utilise le prédicat EQUAL. 


ex : (MEMBER '(B C) '((A (B OD (BO DD к> «((BC) D) 


(МТН «n» <і>) ISUBR à 2 arguments] 


ramène la partie de la Liste <і> commençant à son «n»iéme élément. бі 
<l> n'est pas une liste ou si (LENGTH <l>) est plus petit que «n», NTH 
ramène NIL. Si «n» <= 1, NTH ramène іа liste <l> en entier. 


МІН peut être défini en KUSS de la manière suivante : 


(DE NTH (n D 
(IF (LE n 1) 


L 
(МІН (SUB1 п) (CDR 1)))) 
ех: (NH 3 '(ABCDED x (CDE) 


(CNTH «n» <і>) [SUBR à 2 arguments] (pour Сағ NTH} 


ramène le <n>ième élément de la Liste <і>. СМТН est équivalent à 
(CAR (NTH «n» <1>)). 


L'appel de CNTH est implicite en cas de forme dont (а fonction est un 
nombre (cf: 1° іпіегргёїе). 


CNTH peut étre défini en de la manière suivante : 


(DE CNTH (n L) 
(IF (LE n 1) 
(CAR 10 
(СМТН (5081 n) (СОВ 12222 


ех : (CNTH 3 '(A B C D E F)) С 
((ADD1 4) '(ABCDEFD К? Е 
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(LAST <l> <n>) [SUBR а 2 arguments] 


ramène la Liste ne contenant que le dernier élément de la liste <l>. Si 
un deuxième argument numérique lui est ajouté LAST Livre (а Liste des «n» 
derniers éléments de la Liste <і>. Cet ajout est trés utile, et permet 


notammnent de détruire physiquement [е ou les derniers éléments d'une 
Liste. 


LAST à 1 argument peut être défini en MIS : 


(DE LAST (L) 
(IF «АТОМ (CDR 122 
| L 


(LAST (CDR 1)))) 


ex : (LAST ? (A B C)) 
(LAST ? (A B С. D» 
(SETQ L '(A B C D» 
(LAST L 2) 

5 (LAST L 2)) 


ЧЧЧЧЧЧ 


(LENGTH <s>) [SUBR à 1 argument] 


si «s» est une liste, ramène le nombre d'éléments de cette liste. Si «s» 
n'est pas une Liste, LENGTH ramène 0. 


LENGTH peut étre défini en : 


(DE LENGTH (1) 
(IF (АТОМ L) 


0 
(ADD1 (LENGTH (CDR 122222 


ex : (LENGTH "Oé (BO DE) t> A 
(LENGTH "Esar") ЕР? 0 


3.4.2 Recherche Пе Туре - 


(ТҮРЕР <s>) [SUBR à 1 argument] {pour ТҮРЕ Predicate} 


ramène différents atomes en fonction du type de l’argument «s». Cette 
fonction peut être utilisée pour construire des fonctions dites 
génériques,  TYPEP ramàne l'atome : 

= LITATOM si «s» est un atome littéral, 

- NUMBP si «s» est un nombre (pour connaitre le type de ce nombre, il 
faut utiliser la fonction TYPNUMB), 

- STRINGP si «s» est une chaíne, 

- LISTP si «s» est une liste, 

- NIL si «s» n'est pas un objet МІР (par exemple une adresse de 
Lancement de SUBR, une adresse de tableau etc ...). 


ex : (TYPEP ”А) HF LITATOM 


(TYPEP 45.2) Е” NUMBP 
(ТҮРЕР "(X Y) к” LISTP 
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(TYPEFN zats) [SUBR à 1 argument] {pour TYPE FuNction) 


Cette fonction teste si l'atome littéral «at» donné en argument  posséde 
une définition de fonction. TYPEFN ramène l'atome : 

- EXPR si «at» posséde une définition de type EXPR, 

- FEXPR si «at» posséde une définition de type FEXPR, 

~ SUBR si «at» possède une définition de type SUBR, 

- FSUBR si «at» possède une définition de type FSUBR, 

- MACIN si «at» posséde une définition de type MACIN, 

- MACQUT si «at» possède une définition de type MACOUT, 

- MACRO si «at» possède une définition de type MACRO, 

- ARRAY si «at» possède une définition de t pe ARRAY, 

- AUTOLOAD si «at» est une fonction de type ХОТО ОАО, 

- NIL si «at» пе possède pas de définition de fonction. 

Si l’atome possède plusieurs définitions, TYPEFN ramène Le type de celte 
qu'utiliserait EVAL si on évaluait une forme dont la fonction était «at», 
c'est-à-dire la premiére définition trouvée sur la P-Liste de «at». 


ex : (TYPEFN °ТҮРЕЕМ) г” SUBR 
(TYPEFN ' COND) ЕР FSUBR 
(TYPEFN ? QUOI) ЕР NIL 


(TYPNUMB <n>) [SUBR à 1 argument] {pour ТҮРе NUMBer) 


cette fonction teste le type du nombre donné en argument et ramène 
l'atome : 

- FIX si Le nombre «n» est de type entier, 

- FLOAT si le nombre «n» est de type flottant, 

- NIL si L'argument «n» n'est pas un nombre. 


ex : (TYPNUMB 45) E FIX 
(TYPNUMB 120.12) Ce FLOAT 
CTYPNUMB NUMBER) EF NIL 


3.5 Fonctions De Création De Listes 
(CONS «si» <s2>) ISUBR à 2 arguments] 


construit une Liste dont le premier élément est «sl» et le reste la Liste 
«82». Si «s2» est un atome, CONS produit la paire pointée 

(<51> . «s2»). 
Il existe une écriture abrégée de іа fonction CONS qui utilise les 
caractères spéciaux crochets carrés : 

[ «si» . «s2» 1 


ex : (CONS "А "(В C) ЕР (АВС) 
(CONS 1 2) ES 0.2 
"ТА . B] EF (CONS А В) 
("ХХ Y) . '(U P) 1 ЕР ((X Y) UP) 


(KCONS <в1> <s2>) [SUBR à 2 arguments] (pour eXchange CONS) 


est équivalent à (CONS <s2> «s1»). ХСОМ5 est donc un CONS qui possëde 
ses deux arguments inversés. Cette fonction n'est pas très utile pour 
vous mais permet dans certains cas d'améliorer le code produit par [е 
compilateur, 


ex : (XCONS 1 2) Ы” (2. 1) 
CXCONS "А '(BOD г” (BC). A) 
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(NCONS <55) [SUBR à 1 argument] {pour Nil CONS} 


est équivatent à la foncion (CONS <s> NIL). Cette fonction est utilisée 
par (в compilateur pour améliorer le code produit ainsi que pour la 
macro-génération des expressions entre crochets carrés; en effet une 
entrée de type [<s>] sera macrogénérée en (NCONS <s>) ce qui est plus 
performant que (CONS <s> NIL) ou que (LIST <s>). 


ex : (NCONS 'A) CP (А) 
(NCONS "OU P) >? ((UP» 
' [L] ЕР? (NCONS L) 


(MCONS «s1» «s2» ... <өМ>) ISUBR а М arguments] {pour Multiple CONS) 


permet le CONS multiple. L'appel (MCONS «si» <s2> ...  «sN-1» <sN>) 
correspond а (CONS <в1> (CONS «s2» ... (CONS «sN-1» «sN>) ... )). 
Cette écriture peut s'abréger en utilisant Les caractères spéciaux 
crochets carrés : 


[ «sl» «s2» ... <sN-1> , «sN»J 


ex : (MCONS 'A "В 'C) E «АВ. C) 
"ГІ (ADD1 X) . (FOO L)1 г”  (MCONS L (А001 X) (F00 1221 


(DCONS «s» <і>) ISUBR à 2 arguments] (pour Distributive CONS) 
permet de CONSer l’expression «s» à tous les éléments de la liste <і>. 


DCONS peut étre défini en de la maniére suivante : 


(DE DCONS (S L) 
(MAPCAR L (LAMBDA (L) (CONS S L)))) 


ex : (DCONS "А ' OX (Y) (9202 Ep» СА. X) CA Y) CA (2))) 


(LIST «si» ... «sN») ISUBR à М arguments] 


ramène la liste des valeurs des différentes expressions «sl» ...  «sN». 
En terme de CONS l'appel (LIST <в1> «s2» ...  «sN-1» «sN») est équivalent 
à (CONS <в1> (CONS «s2» ... (CONS «sN-1» (CONS <sN> NIL)) ... D). 
Il existe une écriture abrégée de la fonction LIST qui utilise Les 
caractères spéciaux crochets carrés : 

[ «si» ... <sN> 1 


ех: (LIST °А °B °С) > (ABO 


(LIST) E NIL 
'[45 (А001 X) L] p» (LIST 45 (ADD1 X) L) 
[11 E (NIL) 


(LINEAR «si» ... <sN>) [SUBR à N arguments] 


ramène la liste de tous les atomes des différentes expressions <51> ... 
<sN>. LINEAR "aplatit" donc tous ses arguments. 


ex : (LINEAR "А '(B (C. DO 5) ЕР? (ABCDS 
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(COPY <s>) ISUBR à 1 argument] 


fabrique une nouvelle copie de toute la liste <l>. Pour cette fonction 
la copie s'effectue à tous les niveaux de l'arborescence. 


COPY peut être défini en de la manière suivante : 


(DE COPY (s) 
(IF (АТОМ 5) 


5 
(CONS (COPY (CAR s)) (COPY (CDR s))))) 


ex : (COPY "Ai ES А 
(COPY ° (А (B (C (DD) rtr» (A (В (С (DD) 


Cette fonction ne traite pas les listes circulaires ou partagées. 
Pour cela il faut utiliser la fonction ; 


(DE CIRCOPY (L ;; d) 
(LET ((L D (пеш)? 
(COND 

(ХАТОМ 1) 1) 

((CASSQ L а) ) 

(T (SETQ neu [NIL] d [ft . neu] . dl) 
(RPLACA new (SELF (САВ 1292 
(RPLACD neu (SELF (CDR 192002999 


(SUBST «sl» <s2> <1>) ISUBR à 3 arguments] 


fabrique une nouvelle copie de toute La Liste <l> en substituant à 
l’expression <52> 1” ехргеввіоп <sl> à chacune de ses occurences, Si les 
deux expressions sont Les mêmes pointeurs physiques (i.e. si (EQP <51> 
<52>) = Т), l'interprète se permet d'appeler La fonction COPY à la place 
de SUBST, l'exécution de la fonction COPY étant beaucoup plus rapide. 


SUBST peut étre défini en de la maniére suivante : 


(DE SUBST (51 s2 L) 
(COND ((EQUAL 1 52) 610 
(CATOM D D 
(T «CONS (SUBST 51 52 (CAR D) 
(SUBST s1 52 (CDR 1222999 


ex : (SUBST * (X Y Z) '(A B) '((A B) С (D (A B)))) 
KP (X Y Z) C (D (X Y Z))) 


(OBLIST) ISUBR à 0 argument] 


ramène la (très longue) liste de tous Les atomes Litéraux présents dans 
le système. Cette liste ne contient pas l'atome UNDEF (ce qui évite bien 
des erreurs жж UNDEFINED VARIABLE), 


(REVERSE <в1> <s2>) ISUBR à 2 arguments] 
ramène une copie inversée du premier niveau de la Liste <51> бі Le 


deuxième argument est fourni, il est ajouté au moyen d'un NCONC physique 


à 1а première Liste inversée : l'appel correspond donc à (NCONC (REVERSE 
<sl>) <s2>). 


REVERSE peut être défini en de la manière suivante : 
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(DE REVERSE (si 52) 
(IF (NULL 51) 


52 
(REVERSE (CDR 51) (CONS (CAR 51) s2)))) 


ex : (REVERSE , (A (B C) D» ES (D (B C) A) 
(REVERSE '((X Y) (U PD '(G0D F (UP) (ХҮ) G O) 


Оп prétend parfois que cette fonction fait Le même travail : 


(DE REV (L) 
(IF (NULL (CDR 102 


l 
(CONS (CAR (REV (CDR 1220 
(REV (CONS (CAR 1) 
. (REV (CDR (REV (СОВ 10222229292 
(APPEND <і> <s>) [SUBR à 2 arguments] 

ramëne (а concaténation d'une copie du premier niveau de (а liste <і> à 
l’expression «s». Si «s» n'est pas fourni, (APPEND <і>) ramène 
Simplement une copie du premier niveau de <l>. 


APPEND peut étre défini en de la maniére suivante : 


(DE APPEND (L s) 
(IF (NULL D 


s 
(CONS (CAR 1) (APPEND (CDR 1) s)))) 
ex : (APPEND ' (A B C) KP (ABC) 
(APPEND '(AB C) °X Y) E (ABC X Y) 
(APPEND1 <l> «sl» ... <sN>) [SUBR à М arguments] 
raméne (а concaténation d'une copie du premier niveau de la liste <і> à 
la Liste [ «sl» ... «sN» 1. APPENDI est équivalent à 
(APPEND <і> [ «sil» ... <sN>]). 


ех : (АРРЕМО1 '(ABO'C'D Е (ABC D) 


(DELQ «a» <і>) [SUBR à 2 arguments] 


ramène une copie du premier niveau de la liste <l> dans laquelle toutes 
(ев occurences de l'atome «a» ont été enlevées. Cette fonction utilise 
Le prédicat EQ. 


DELQ peut être défini en MIS de la manière suivante : 
(DE DELQ (a 
(COND ((NULL O NIL) 
( (EQ a (САН LD) (DELQ а (CDR O20) 
(T «CONS (CAR D (DELQ a (CDR 00005) 


ех: (DELQ 'A "Z AY (ВА ODDO ІР (Z Y (B A C)) 
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(DELETE «s» <і>) [SUBR à 2 arguments] 


raméne une copie du premier niveau de la liste «l» dans laquelle toutes 
Les occurences de l'expression «s» ont été enlevées. Cette fonction 
utilise le prédicat EQUAL. 


ex : (DELETE "(Х D ' CZ X DU X Y) PD т”? ZUP) 


3.6 Les Fonctions De Modification 


Toutes les fonctions qui vont être décrites doivent être utilisées 
Conformément au mode d’emploi, pour éviter de placer [е système dans un état 
de confusion dramatique car elles modifient physiquement les structures М6). 


D'une manière générale il est trés vivement souhaité de ne pas modifier : 

~ les constantes symboliques de l'interpréte (NIL T LAMBDA ...) et d'une 
manière générale toutes les atomes de l’ interprète. 

- (вв nombres 

- les chaînes de caractères 


Pour ces fonctions l'argument «obj» représente soit un atome littéral soit une 
Liste. Modifier Le CAR d'un atome revient à changer sa C-valeur, modifier son 
CDR revient à modifier sa P-Liste. 


(RPLACA «obj» <s>) [SUBR à 2 arguments] (pour RePLACe cAr} 


remplace le CAR de «obj» par «s». Ватёпе le nouvel «obj» en valeur. 


ex : (SETQ X ' (A BD KP (AB 
(RPLACA 'X ° (С)) pp X 
X — kr (С) 
(RPLACA X 'D) > (D) 
X E (D 


(RPLACA "(А B С) ' X Y)) P (ХҮ) ВС) 


(RPLACD «obj» <s>) ISUBR à 2 arguments] {pour RePLACe cDr) 
remplace Le CDR de «obj» par «si». Ramène Le nouvel <obj> en valeur. 


ex : (RPLACD ? (A B С) 'X Y Z)) г> (A X Y 2) 


(RPLACB «obj» <l>) [SUBR à 2 arguments] {pour RePLACe Both) 


remplace le CAR de «obj» par le CAR de <і> et le CDR de «obj» par Le CDR 
de <і>. Cette fonction correspond à : 

(PROGN (RPLACA «obj» (CAR <l>)) (RPLACD «obj» (CDR <l>))) 
Cette fonction est souvent utilisée dans des MACRO pour modifier 
physiquement l'appel de MACRO lui-même. 


ex : (SETQ L1 * (A B C» ES (АВС) 
(SETQ L2 L1) r (ABO 
(RPLACB L1 '(X Y)) ЕР” (X Y) 
L2 ES (X Y) 
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(SET «<objl> «sl» ...  «objN» «sN») ISUBR а М arguments] 


remplace tous les CAR des «obj» par leur «s» correspondant. SET ramène 


en valeur «sN». А la valeur ramenée prés, (SET «obj» «s») est équivalent 
à (RPLACA «obj» «s». 


ex : (SET'(ABO '(X Do г” ОЖ 


(SETQ «ati» «si» ... <atN> <sN>) [FSUBR] 


«atl» ... <atN> sont des atomes litéraux qui ne Bond pas évalués ; 

«S1» ... <sN> sont des expressions quelconques qui seront évaluées. 
SETQ est іа fonction d'affectation la plus utilisée : chaque atome «at» 
est initialisé avec l'expression correspondante «si». SETQ ramène <sN> 
en valeur. 


ex: (SETQ LI '(ABCODO >” (ABO 
(SETQ L2 L1) ЕР (ABO 
(SETQ L3 L2 14 °Е00) > FOO 


(SETQQ <аї1> <51> ... <atN> <sN>) [FSUBRI 


est identique à La fonction SETQ toutefois les différentes valeurs «sl» 
..-. <sN> ne sont pas évaluées. SETQQ ramène <sN> en valeur. 


ex : (SETQQ L1 (A B C» D «АВ С) 
(SETQQ L1 L2) р> 12 


(SYNONYM «ati» <at2>) [SUBR à 2 arguments] 


donne à l'atome littéral «ati» Les mêmes indicateurs spéciaux (SUBR FSUBR 
...) que l'atome littéral <at2>. Cette fonction permet de changer le nom 
d’une fonction standard. SYNONYM ramène <atl> en valeur. 


ex : (SYNONYM 'KONSS 'CONS) Е” KONSS 
(KONSS 1 22 ІР 10.2 
(CONS 1 2) E 0.2 


(NEXTL <at>) IFSUBR] {pour NEXT List} 


«at» (qui n'est pas évalué) doit être un atome littéral dont la valeur 
doit être une Liste. NEXTL ramène te САН de cette Liste en valeur et 
donne comme nouvelle valeur de «at» le CDR de son ancienne valeur. Cette 
fonction est trés utile pour "avancer dans une liste" qui est la valeur 
d'un atome. 
Cette fonction correspond en а: 

(PROG1 (CAR <at>) (SETQ «at» (CDR <at>))) 


ех: (SEIQA ' (X Y 2)) Е” XYZ) 
(NEXTL A) KP X 
A ES (Y Z) 


(NEWL «at» <s>) [FSUBR] {pour МЕМ List} 


«at» (qui n'est pas évalué) doit être un atome littéral dont la valeur 
est une Liste. МЕШ place en tête de cette Liste la valeur de «s» et 
raméne en valeur la nouvelle liste formée. 
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Cette fonction correspond en WLISP| à : 
(SETQ «at» (CONS «s» «at»)). 


L'utitlisetion conjuguée des fonctions NEXTL et МЕШ. permet de construire 
des pile-Llistes. 


ex : (SETQ A ' (X Y 2») ES (XYZ 
(МЕШ. А 'H) > (XY 
А ES (Хх Үү 


(EXCH «ati» <at2>) [FSUBR] 


«atl» et «at2» (qui ne sont pas évalués) doivent être des atomes 
Litéraux. EXCH va échanger leurs deux valeurs et ramène іа nouvelle 
valeur de «at2» (i.e. l’ancienne valeur de <а41>). 
Cette fonction correspond en MUSR à : 

(SETQ «at2» (PROG1 «ati» (SETQ «atl» <at2>))) 


ех : (SEIQA 5 В 10 rF” 10 
(EXCH A B) ES 5 
А ЕР 10 


(INCR <at>) [FSUBR] 


<at> (qui n’est pas évalué) doit être un atome littéral dont la valeur 
est un nombre entier. INCR ajoute 1 à la valeur de <at> et ramène cette 
nouvelle valeur. 
Cette fonction correspond en à : 

(SETQ «at» (ADD1 <at>)) 


ex: (SEIQX2 r2 
(IR) р 3 
X pm 3 


(DECR <at>) [FSUBR] 


«at» (qui n'est pas évalué) doit être un atome Littéral dont (а valeur 
est un nombre entier. INCR retranche 1 à {а valeur de <at> et ramène 
cette nouvelle valeur. 


Cette fonction correspond en à : 
(SETQ «at» (SUB1 <at>)) 


ex : (SETQ X 3) т” 3 
. (DECR X) т 2 
X E 2 


(NCONC <11> <12>) [SUBR à 2 arguments] 


concaténe physiquement Les deux Listes «l1» et «12» (і.е. place dans [е 
СОВ du dernier élément de «l1» un pointeur sur la Liste «12»). . NCONC 
ramène (а nouvelle Liste «l1» en valeur. Si «l1» et «l2» sont les mémes 
pointeurs physiques, NCONC permet de construire des Listes circulaires. 


ex : (SETQ L1 "АВ C) L2 L1) г” (АВ С) 


(NCONC L1 '(D E ҒО» ЕР ABCDEF) 
L.2 > (ABCDEF) 
(NCONC L1 L1) E (ABCDEFABCDEFAB... 
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(NCONC1 <l> «sl» ... <sN>) [SUBR à N arguments] 


est équivalent à (NCONC <l> [ <61> ... <sN> 1). Cette fonction est très 
utile pour rajouter des éléments à une Liste un à un. 


ex : (МСОМСІ * (A B С) 'D'E"PD т” (ABCDEF) 


(FREVERSE <L>) (SUBR à 1 argument] {pour Fast REVERSE) 


renverse physiquement (et rapidement) la liste <і>. Cette fonction doit 


être manipulée avec précaution car elle modifie physiquement des 
structures Krieg mais elle est évidement beaucoup plus rapide que la 
fonction traditionnelle REVERSE. 


FREVERSE peu étre défini en de іа manière suivante : 
(DE FREVERSE (L ;; r) 
(IF L | 


Ан (CDR 1) (RPLACD r U) 
r 


ех: (SETQ L1 '(A B C D E>) rr ABCDE) 
(SETQ L2 (CDR L1)) p (B C D E) 
(SETQ L3 (LAST L1)) kr (E) 
(FREVERSE L1) pe (E D C B A) 
L2 ES (B A) 
L3 ғ (E D C B A) 


(SMASH <і>) [SUBR à 1 argument] 


enlève physiquement le premier élément de la Liste <і> en conservant La 
même adresse physique pour le premier élément de la liste <l>. Ilya 
donc recopie du deuxième élément de <і> dans le premier puis destruction 
du deuxième élément. SMASH ramène La nouvelle Liste <l> en valeur. 
(SMASH <і>) est équivalent à (RPLACB «t» (CDR <1>)). 


ex : (SETQ L1 ' (ABO 12 L1) E (ABC) 
(SMASH L2) > (BO 


L1 с (B C) 


(АТТАСН <і> <s>) [SUBR à 2 arguments] 


ajoute physiquement en tête de la Liste <і> l’élément <s> еп conservant 
(а même adresse physique pour le premier élément de la Liste <і>. Ilya 
donc recopie du premier élément de <і> dans un doublet libre puis 
modification du doublet Libéré par «s». ATTACH ramène la nouvelle liste 
<і> en valeur. 

(ATTACH <l> <s>) est donc equivalent à (RPLACB <і> (CONS «s» <1>)). 


ex : (SETQ L1 '(Y Z) 12 L1) ES (VY 2 
(ATTACH ”Х 12) ES (X Y Z) 
1 ES (X Y Z) 
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3.7 Fonctions Sur Les A-listes 


En 10 comme dans tous les NLISP, les A-Listes (les Listes d'association) 
sont des listes de listes qui possèdent la structure suivante : 
((уагі . vall) (var2 . val2) — (varN . valN)) 


Chaque élément est une Liste dont Le CAR est considéré comme une variable et 
[е CDR comme sa valeur associée. 


Pour toutes les fonctions qui vont être décrites, l'argument «al» doit être 
une A-Liste. 


3.7.1 Recherche Sur Les A-listes - 


(ASSQ «a» <аі>) [SUBR à 2 arguments] 


ramène l'élément de la А-(івіе «al» dont le CAR (la variable) est égal à 
L'atome <a>, sinon ASSQ ramène NIL. Cette fonction utilise Le prédicat 


ASSQ peut étre défini en de la maniére suivante : 


(ПЕ ASSQ (a а!) 
(COND ((NULL at) NIL) 
((EQ (CAAR aD а) (CAR aD») 
(Т (А550 а (CDR al))))) 


ex : (ASSQ "В '((D (В. D CDE) £= (В. 1) 


(CASSQ «a» <аі>) [SUBR à 2 argumets] 
est identique à ASSQ mais ramène (е CDR seul de l'élément sélecté de la 
A-liste. ATTENTION : on ne peut pas distinguer la valeur NIL d'une 
variable avec l'absence de cette variable. 


ex : (CASSQ °С '((D (В. 1) (CDE) rr (DE 


(ASSOC «s» «al») [SUBR à 2 arguments] 


ramène l'élément de {а A-liste «al» dont te CAR (la variable) est égal à 


l'expression «s», sinon ASSOC ramène МП. Cette fonction utilise le 
prédicat EQUAL. 


ex : (ASSOC ' (X Y) ' (40 (Ou 2») Er (X02 


(CASSOC «s» «al») [SUBR à 2 arguments] 
est identique а ASSOC mais ramène (е CDR seul de l'élément sélecté de la 
A-liste. ATTENTION : on ne peut pas distinguer la valeur NIL d'une 
variable avec l'absence de cette variable. 


ex : (CASSOC '(X Y) ' (00 (OX Y) 2») т” (2) 
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+ 
3.7.2 Création Et Utilisation Ое A-listes - 


(PAIRLIS «t1» «12» <al>) [SUBR à 3 arguments] 


«l1» doit être une liste de variables 

«l2» doit être une Liste de valeurs 

PAIRLIS raméne une nouvelle A-liste formée à partir da la liste de: 
variables et de la liste des valeurs. Si le troisième arguneni sale е’. 
fourni, il est ajouté à la fin де (а A-Liste crée. 


PAIRLIS peut être défini en 5? de (а manière suivant 


(DE PAIRLIS (11 12 al) 
(IF (NULL 11) 


al 
(CONS (CONS (CAR 11) (CAR 1222 
(PAIRLIS (CDR 11) (СОН 12) aD)» 


ex : (PAIRLIS '(ABO '(123)D E СА. DB. 2) (С. 39 
(PAIRLIS * (C Y 2 ,'(5 (6)) '((A . D (В. 2») 
E ((Х. 5) (Y 6) Z) (A . 1) (В. 2)) 


(SUBLIS «ail» <s>) ISUBR à 2 arguments] 


ramène une copie де l'expression «s» dans laquelle tou.ss ies ОССЦГЕЛСЕт 
des variables de іа Á-liste «al» ont été remplacées par leurs valeurs 
correspondantes. Cette fonction effectue une copie ertière de 
l'expression «s» et utilise la fonction ASSQ. 


SUBLIS peut être défini en de la maniére suivante : 


(DE SUBLIS (A E 
(LET ((E E)) 
(IF (АТОМ E) 
(LET (ON (ASSQ E A))) 
(IF X (CDR X) ED) 
(CONS (SELF (NEXTL E)) (SELF E))))) 


ex: (SUBLIS '((A. 1) (В 2 3) '(A ВС) РВ. B» 
ЕР? (1 (232 C) D (2 3) 2 3) 


3.8 Fonctions Sur Les P-listes 


Еп KUSS) 10 comme dans tous Les MIS, tes P-listes (listes de propriftés) sont 
des listes qui ont la structure suivante : 

(іпаіс1 vall indic? val? ... indicN valN) 
A chaque indicateur est associé une valeur. Les recherches sur (ев P-listes 
s'effectuent donc deux éléments par deux éléments. 


Les arguments de ces fonctions sont : 

«pl» - si «pl» est un atome littéral, la P-Liste utilisée sera le CDR de 
L'atome. 

- si «pl» est une Liste, la P-liste utilisée sera cette liste ei le-már.e. 
- бі «pl» est un nombre ou une chaîne, toutes ces fonctions raménecc.u а 
valeur NIL. 

«ind» l'indicateur est une expression quelconque, la recheo ci. Te {си "zg 
utilise donc іе prédicat EQUAL. Toutefois pour accélérer (а recherche, 
les fonctions GET, СЕТЬ, PUT et REMPROP testent d'abord si ''indica*asur 
n'est pas un atome Littéral; en се cas, une коч. пе әр CURE LUS D 
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employée. Cette routine utilise le prédicat EQP et est extrêmement 
rapide. 

«lind» est une Liste d' indicateurs. 

«pval» peut être n'importe quelle expression 


3.8.1 Fonctions De Recherche Sur P-Liste - 


(GET «pi» <ind>) ISUBR à 2 arguments] 


ramène {а valeur associée à l'indicateur «ind» dans la P-Liste «pl». S.L 
L' indicateur n'existe pas, GET ramène NIL. 


ATTENTION : on ne peut pas discerner (а valeur égale à NIL d'un 
indicateur avec l'absence de cet indicateur. 


GET peut être défini en MIS de (а manière suivante : 


(DE GET (pl ind) 
( (LET ((pl (COND 
СА ІТАТОМ рі) (CDR pU») 
C(LISTP pl) р) 
(T NIL)))) 
(COND ((NULL pl) NIL) 
( (EQUAL (CAR рі) ind) (CADR pU» 
(T (SELF (CDDR pl)))))) 


ех: (GET °(11 А 12 BD 'I2 рғ B 


(GETL «pl» <lind>) I[SUBR à 2 arguments] 


«pl» est La P-Liste à explorer et «lind» est une Liste d' indicateurs. 
GETL ramène La sous-P-liste de <pl> commençant par un des éléments de 
«lind». Cette fonction permet entre autres de lever (l'ambiguité qui 


existait, dans la fonction GET, entre l'absence d'un indicateur et La 
valeur NIL associée à un indicateur. 


ex : (СЕТ '(I1 1 I2 2 I3 3) '(I2 14)) p» (12 2133 
(SEIL "(11 1 I2 NIL) ' I2) т? (12 NIL) 


3.8.2 Création Et Modification De P-Liste - 


(ADDPROP «pl» «pval» «ind»? [SUBR à 3 arguments] 


rajoute en tête de la P-liste «pl» L’indicateur <ind> 


et sa valeur 
associée «pval».  ADDPROP ramène «pl» en valeur. 


ex : CADDPROP ” (11 А 12 В) °С °11) F (I1 C I1 À I2 В) 


(PUT «pl» <pval> <ind>) [SUBR à 3 arguments] 
si l'indicateur «ind» existe déjà sur la P-liste «pl», sa valeur associée 
prend (а nouvelle valeur <pval>, sinon l'indicateur «ind» et sa valeur 
associée «pval» sont ajoutés en téte de «pl» (d'une maniére identique à 
(а fonction ADDPROP). PUT ramène <pl> en valeur. 


ex : (PUT *(I1 A 12 В) °С ’I1) P (11 C I2 B) 
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(DEFPROP «pl» <pval> <ind>) [FSUBR] 
est équivalent à PUT mais aucun argument n'est évalué. 


ex : (DEFPROP FOO (LAMBDA О (FUU)) EXPR) г” РОО 


(REMPROP «pi» <ind>) [SUBR à 2 arguments] 


enlève de la P-Liste «pl» l’ indicateur «ind» s'il existe ainsi que sa 
valeur associée.  REMPROP ramène «pl» en valeur. 

L'utilisation conjuguée des fonctions REMPROP ей  ADDPROP permet 
d'utiliser Les P-listes comme des piles de propriété-valeurs. 


ex : (ВЕМРВОР '(I1 А 12 В) '12 > (1А) 


3.9 Fonctions Sur Les P-names Des Atomes 


Reppelons que : 

- Le P-Name d'un atome littéral est son nom externe | 

- le P-Name d'un nombre est sa représentation externe dens (а base de 
conversion de sortie courante. 


- Le P-Name d'une chaîne est la suite de caractères qui constituent cette 
chaîne. 


(PLENGTH <a>) [SUBR à 1 argument] (pour Pname LENGTH; 


ramène Le nombre de caractères du P-Name de l’atome <a>. (PLENGTH <a>) 
correspond à (LENGTH (EXPLODE «a»2). 


ex : (PLENGTH -128) E 4 
(PLENGTH "A") E З 
PLENGTH 'TOPLEVEL) CG 8 


(SORT «al» <а2>) [SUBR à 2 arguments] 


ramène T si Le P-Name de «al» est inférieur ou égal (lexicographiquement) 
eu P-name de «a2», sinon ramène NIL. Cette fonction est utilisée pour 
réaliser des tris alphabétiques. 


ex : (SORT "А "А) т? T 
(SORT 'B "Ai > NIL 
(SORT "А "Bi t T 
(SORT 'ZZZ 'ZZZZ) x» T 


(SAMEPN «al» <а2>) [SUBR à 2 arguments] {pour SAME Р-Мате) 


ramène T si te P-Name de l'atome «al» commence par le P-Name de  l'atome 
«a2», sinon ce prédicat ramène NIL. SAMEPN est utilisé pour tester les 
premiers caractères du P-Name d'un atome. 


ex : (SAMEPN "a 101 ж) ЕРСІ 


(SAMEPN 'xL101 "al: Er T 
(SAMEPN 'xL101 ”жМ) E NIL 


http://www.artinfo-musinfo.org VLISP 10.3 Manuel de référence, août 1978, page 52 / 224 


MIS 10 . З Manuel de Référence 
—— 22-2 2222222... 0 


(GENSYM «al» ... <аМ>) [SUBR à М arguments] {pour GENerate SYMbol) 


Si aucun argument n’est donné, GENSYM ramène à chaque appel 


Page 51 


un nouvel 


atome Littéral de type Gxxx dans Lequel xxx est un nombre incrémenté à 


chaque appel; xxx vaut 100 au départ de |” interprète, 


Si des arguments sont fournis, GENSYM ramène un nouvel atome 


dont Le 


P-name est (а concaténation de tous les P-names des argumerits atomiques 


«al» ... <аМ> jusqu'à concurrence de 13 caractères. 


ex : (GENSYM) XF 6100 
(GENS vk? E 6101 
(GENSYM) Ыр” 6102 


(GENSYM 'LAB (ADD1 3) 7:2 с» ТАВА: 


(EXPLODE «al» ...  «aN») [SUBR à N arguments] 


ramène la liste concaténée de tous les caractères des Р-патев des 


arguments atomiques «al» ...  «aN». 


ex : (EXPLODE 'NUM -237 ’HAA) E> (NUM-237HA A 


(ASCII <n>) [ISUBR à 1 argument] 
ramène le сагасїёге de code ASCII «n» (modulo 256). 


ex : (ASCII 67) p С 
(ADD1 (ASCII 49)) FF 2 


(CASCII <c>) [SUBR à 1 argument] (pour Code ASCII} 


ramène le code ASCII du caractère «c». Un caractère étant un atome dont 


Le PLENGTH est égal à 1. 


ex : (CASCII °С) p> 67 
(CASCII 1) ІР 49 


3.10 Les Fonctions STATUS 


Les fonctions magiques STATUS permettent tout ce que vous avez toujours eu 


envie de faire à un système LISP sens jamais pouvoir le faire vraiment. 


manière plus précise, les fonctions STATUS permettent de connaître 


D'une 


et/ou de 


modifier Les valeurs des indicateurs et des variables internes du système 


МӨРІ. 
(STATUS «n» <argl> ... <argN>) ISUBR à N arguments] 


Le ler argument «n» est le numéro de la fonction STATUS à exécuter. 


Dans 


l'état actuel du système une trentaine de fonctions sont disponibles. Un 


numéro de STATUS incorrect déclenche une erreur avec impression du libelté : 


жж STATUS error : «n». 
dans lequel «n» est le numéro de la fonction STATUS incorrect. 


Hormis celles manipulant directement le R.G., La plupart des fonctions STATUS 


sont décrites dans les autres chapitres. 
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3.10.1 Le Registre Général (R.G.) - 


IL existe un registre de 36 bits, te registre général R.G. , qui contient les 
indicateurs principaux du systéme. 

La signification de chacun de ces bits est mentionnée dans les autres 
chapitres, voici simplement un tableau récapitulatif de la signification des 
différents bits du В.б. 


no val/ | si le bit est à 1 
bit def. | 
0 1 imprime le temps d'une évaluation au top-level 


(cf: іа fonction TOPLEVEL). 


1 1 | imprime Le résultat de toutes les évaluations 
au top-level (cf: la fonction TOPLEVEL). 

2 1 imprime les formes à évaluer au top-level 
(cf: (а fonction TOPLEVEL). 

3 0 trace tous les appels internes de la fonction EVAL 
(cf: le chapitre erreurs et mise-au-point). 

& 0 trace tous les appels internes de La fonction APPLY 
(cf: le chapitre erreurs et mise-au-point). 

5 0 édite des statistiques après chaque б.С. 
(cf: Le Garbage collecting). 

6 0 édite une 3ème HHO Line aprés chaque G.C. 
(cf: Le Garbage collecting). 

7 1 teste la validité de l'indice des tableaux. 
(cf: Les tableaux). 

8 0 trace tous les appels internes de la fonction EVAL 
en mode pas-à-pas (cf: Les fonctions STEP et UNSTEP) 

9 8 non utilisé actuellement 

10 0 imprime L'image de tous les enregistrements lus en entrée. 
(cf: les fonctions d'entrée) 

11 1/0 | Le fichier d'entrée est un fichier TTY. 11 y a donc 
impression du caractere ? avant chaque lecture de 
Ligne et activation d'un petit pretty-print. 
Ce bit est positionné automatiquement par (а 

| fonction INPUT. 

12 0 en entrée (ес nombres peuvent commencer par Le 
signe + (cf: les nombres). 

13 1 en entrée les nombres peuvent commencer par le 

| signe - (cf: les nombres). 

14 1 en entrée l’action du quote-caractère (par défaut /) 
est validée. 

15 1 en entrée les macro-caractéres sont traités. 

16 1 en entrée Les macro-fonctions sont traitées. 
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17 1 en entrée les chaînes de caractères sont acceptées. 
18 1 en entrée (ев commentaires sont acceptés. 
19 1 en entrée les caractères minuscules sont transcodés 
| automatiquement en caractères majuscules. 
20 1 (ев impressions physiques ont lieu à la fin de 
chaque ligne (TERPRI) et non à ta fin du buffer 
de sortie. (cf: les fonctions de sortie). 
21 1 en sortie toute édition est précédée d'un espace. 
22 0 en sortie les nombres positifs commencent 
par le signe + 
23 1 | en sortie les nombres négatifs commencent 
par le signe - 
24 0 | en sortie les caractères spéciaux des P-names 
| sont précédés du caractère spécial / . 
25 1 | en sortie il y a un espace entre chaque atome. 
26 1 | en sortie (ев macro-fonctions sont traitées. 
27 1 еп sortie (в caractère délimiteur de chaîne 
est restitué. 
28 1 | іе préfixe du buffer de sortie est imprimé. 
29 1/0 l’interprète a été lancé par l'éditeur ETV. 
30 1/0 le système se trouve dans la fonction IMPLODE. 
31 1/0 le système se trouve dans la fonction LIBRARY. 
32 1/0 le systéme se trouve dans la fonction READ. 
33 1/0 LU y a eu une interruption de type ESCAPE. I. 
34 1/0 le systéme se trouve en début de démarrage à chaud. 
35 1/0 [е système se trouve dans un б.С. 


or 


ces bits sont manipulés par les fonctions STATUS suivantes : 


(STATUS 0 «n») 


si «n» est un nombre, donne cette nouvelle valeur au R.G. Се STATUS 
ramène Le nombre qui représente La valeur du R.G. courant. 


(STATUS 1 «n1» ... <nN>) 


met à 1 les bits du R.G. de numéro «nl» ... «nN». Si un de cec 
arguments n'est раз un nombre compris entre 0 et 35, l'erreur status зе 
déclenche. Се status ramène <nN> еп valeur. 
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(STATUS 2 «ni» ... <пМ>) 


est identique à (STATUS 1 ...) mais les bits sélectionr-s sent remis à U. 


(STATUS 3 «nli» ... <nN>) 


est identique à (STATUS 1 ...) mais les bits sélectionnés sont inversés. 


(STATUS 4 «nl» ... <nN>) 


teste les différents bits «nl» ... <пМ> du R.G. Si tous ces bits sont 
positionnés à 1, ce status ramène «nN» sinon ce status ramène NIL. 


3.11 Les Fonctions Système 


(DATE) ISUBR à 0 argument] 


ramère un atome représentant (а date du jour sous la fo-me : 
ji-mmm-aa | 
mmm sont les trois premières lettres du mois (en anglais). 


ex : (DATE) rr 15-Aug-78 


(TIME) [SUBR à 0 argument] 


ramène un atome représentant l'heure courante sous la forme : 
hh: mm: ss 


TIME ramène un atome tittéral prêt à être édité. Оп ne peut pas utiliser 
cet atame pour effectuer des calculs de durée (pour cela il est 
nécessaire d'utiliser là fonction DAYTIME). 
ex: (TIME) т> 12:27:45 

(TIME) rr 12:27:52 


(RUNTIME? [SUBR à 0 argument) 


ramène le temps d'unité centrale (en milli-secondes) utilisé depuis [е 
LOGIN. Cette fonction est utilisée pour calculer Le temps machine 
consommé par Li interprète. 


(DAYTIME? [SUBR à 0 argument] 


ramène l’heure du jour en milli-secondes depuis minuit. Cette fonction 
est utilisée pour calculér des durées réelles. 


(SWITCH) [SUBR à 0 argument] 


Xl un nombre représentent la valeur affichée aux clés du pupitre du 
10. 
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(LIGHTS <n>) I[SUBR à 1 argument] 


affiche sur Les voyants du pupitre du PDP10 ta valeur de {асл ment 
numérique «n». 


(PJOB) [SUBR à 0 argument] 


raméne (е numéro de votre JOB. Cette fonction utilise le PJOB UUO et 
correspond à la commande moniteur :  .PJOB 


(CALLI «ni» <n2>) ISUBR à 2 arguments) 


permet d'utiliser 17000 CALLI d'une manière standard (La description де 
cette UU se trouve dans (а documentation DEC) «n1- est Le numéro du 
CALLI désiré, «n2» est le numéro du registre à employer. Cette fonction 
n'est utilisée que dans certaines applications système trés spécialisées. 


(GETTAB «ni» <n2>) [SUBR à 2 arguments) 


ramène la valeur du GETTAB UUO (qui donne accès aux tables du moniteur) 
&vec «nl» comme index et «n2» comme numéro de table. De la máme maniére 
que CALLI, cette fonction n'est utilisée que dans certaines applications 
système trés spécialisées. 


(VERSION) [SUBR à 0 argument] 


ramène Le numéro de version de U’ interprète utilisé. Се numéro se code 
en binaire : 


. dans lequel d 


ііі... = est le numéro de version majeure (e.g. 10) 
ККК... « est le numéro de version mineure (e.g. 3) 
[14... = est Le numéro d'édition (e.g. 22) 


cette fonction est utilisée dans les programaes système de type LODLAP ou 
COMPIL pour s'assurer de la compatibilité des interprètes dans le temps. 
"nur être plus éclairé, évaluez plutôt l'atome VEPSION. 


(IRCAMP) [SUBR à 0 argument] 


се prédicat ramène T si l'interpréte possède les modifications pour être 
exécuté sur le système de L’IRCAM Ces modifications portent 
principalement sur les terminaux de visualisation, sur certaines UUO 
Systèmes de manipulation de fichiers  (SHOUIT ...), Sur les noms des 
répertoires (ALIAS, ppn ...). бі l'interpréte est prévu pour utiliser іе 
système TOPS 10 classique, IRCAMP ramène "m 


(RESET <і>) [SUBR à 1 argument] 


arrête l'évaluation en cours, et retourne directement au TOFLEVEL. La 
place occupée par les buffers d'entrée sortie système est libérée, із 
messsage RESET est imprimé sur le terminat, enfin, les fichiers d -4trée 
sortie standard sont ouverts. 

Si l’indicateur «i» = NIL, toutes Les variables gardent les valeurs 
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qu’elles possèdaient au moment du RESET (elles ne sont donc pas déliées); 
en revanche si l’indicateur «i» = T, toutes les variables sont déliées et 
reprennent les valeurs qu'elles possédaient au niveau du top-level, 


exemple d'utilisation du RESET 


? ech X 1) 
? 
? (LET CO 100) 
? (PRINT X) 
? (RESET ) ) 
10 
RESET 
--- ALLO ? --- 
? 
2 X 
= 10 
? 
2 (ЕТ ((Х 20)) 
? (PRINT X) 
? (RESET T)) 
20 
RESET 
--- ALLO ? --- 
? 
? X 
= 10 


(STOP) (SUBR à 0 argument] 


arrête L'évaluation en cours, ferme tous les fichiers ouverts, sort de 
L'interpréte, ne passe pas par la case départ et rend le contróle au 
moniteur, 
un ад sa fin venir imprime sur le terminal : Bye et exécute Le 
ХІТ ШО qui, іші, imprime sur (в terminal : EXIT. Cette fonction 
permet de sortir de l’interprète de la facon la plus naturelle. Arrêter 
L’ interprète au moyen d'un 1C risque de faire perdre les fichiers disques 
ouverts à cet instant. IL existe un macro-caractère définie dans 
SYS:VLISP.INI (cf: appendice А) qui réalise cette fonction, le caractère 
“flèche gauche" ou "blanc souligné" : 


? (DMC Ze О (STOP)) 


м < 
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СНАРІТВЕ 4 | 


LES NOMBRES | 


possède deux types de nombres : les nombres entiers әй (ез nombres 
flottants. Ils sont stockés dans une zone de longeur fixe gérée 
dynamiquement. Si cette zone se révèle trop petite, le message d'erreur 
suivant apparait : 
жж no room for numbers. 

Cette erreur est fatale, IL faut augmenter (а taille de la zone allouée aux 
nombres (dans (а fonction CONFIGÜRATION du fichier initial CONFIG. ІМІ) et 
relancer le travail. 


Si durant un calcul, une exception arithmétique se produit, une erreur 
apparait, avec comme Libellé : 

жж arithmetic exception. PC : <рс> | 
dans lequel «pc» est [а valeur du Program Control. Се PC contient еп partie 
droite la valeur du compteur ordinal de l'instruction qui a provoqué 
l’ interruption et en partie gauche l'état des indicateurs (en particulier (еб 
indicateurs débordement d'entier , débordement flottant , division par 0... 


cf: SYSTEM REF. MANUAL pp. 2-58 pour avoir une description complète de ces 
indicateurs). 


Certaines fonctions (les fonctions de conversion, (ев fonctions ае 
l’arithmétique mixte et les fonctions de Comparaison mixte) testent si leur (s) 
argument(s) sont des nombres. Dans le cas où ils ne (е seraient pas, une 
erreur apparait. Le libellé de cette erreur est : 

«fonction» : жж non numeric аго : «argument» 
dans lequel le nom de (а fonction et l’argument incriminé sont impr imés. 


Un certain nombre de fonctions mathématiques ont été empruntées à la 
bibliothèque FORTRAN (ex: Les fonctions SQRT, SIN, АТАМ ...). Ces fonctions 
émetttent parfois des diagnostics d'erreurs qui leurs sont propres (par ex: 
(а tentative de calcul de ta racine carré d'un nombre négatif ...). Ces 


erreurs ne sont pas fatales sous mais le résultat du calcul est bien 
évidemment erronné. 


6.1 Représentation Des Nombres 


La représentation externe des nombres entiers est une suite de chiffres dans 
la base de numération courante. Cette base est définie par (ев fonctions : 
(STATUS 5 <п>) еп entrée 
(STATUS 6 <n>) en sortie 
dans lesquelles «n» est un nombre compris entre 2 et 16. Par défaut, la 
valeur de ces bases est 10. | 


ГІ existe un macro-caractére standard qui permet de lire des S-expressions оғ 
supposant que tous les nombres qui y sont inclus sont représentés en octai, 
l’anti-slash N. IL possède la définition suivante : 
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(DMC "NV" О 
(PUSH (STATUS 5)) + sauve l'ancienne base ; 
(STATUS 5 8) s base d'entrée octale ; 
(PROGI ; puis lit une S-expression (qui ; 
(READ) ‚ sera ramenée en valeur) et ; 
(STATUS 5 (POP)))) ; restaure l'ancienne base ; 


ex : \(730 . 272) est équivalent à (472 . 186) 


Les nombres entiers peuvent être signés ои non. Le traitement des signes est 
controlé par des bits du r.g. : 

bit 12 du r.g. en entrée un nombre peut débuter par le signe + 

bit 13 du r.g. еп entrée un nombre peut débuter par le signe - 

bit 22 du r.g. en sortie les nombres positifs débutent par le signe + 

bit 23 du ғ.а. en sortie les nombres négatifs débutent per le signe - 


Ces nombres sont stockés en mémoire sur un mot (de 36 bits); ils doivent donc 
être compris dans l'intervalle [ -2 ^ 35 , 42735-21 ] c'est-à-dire 
[-34359738368 , +343597383671. 


La représentation externe des nombres flottants est une suite de chiffres 
décimaux suivie immédiatement par un point décimal С. ) et suive 
optionnellement par une fraction décimale également. Pour garder une 
précision de 8 digits un exposant peut être rajouté en notation "E". Cette 
dernière forme d'écriture n'est toutefois disponible qu'en sortie 
actuellement. Les nombres flottants sont stockés en mémoire sur un mot (de 36 
bits) qui contient 1 bit de signe, 8 bits d’exposant et 27 bits de mantisse. 


Il n'existe à l'heure actuelle ni de nombres flottants double précision, ni de 
nombres complexes, ni de Bignums. 


4.2 Les Tests De Type 
(NUMBP <s>) [SUBR à 1 argument] (pour NUMBer Predicate) 


Cette fonction sert à tester si l'argument «s» est un nombre de n'importe 


quel type. si l'argument «s» est un nombre, NUMBP ramène «s» sinon NUMBP 
raméne NIL. 


ex : (NUMBP (ADD1 67)) > 68 
(NUMBP -56.823) kr -56.83 
(NUMBP "Nan") EC МП. | 


(INUMBP <s>) [SUBR à 1 argument] 


teste si l'argument «s» est un "petit entier" i.e. un nombre entier 
ayant une représentation unique dans  l'interpréte. Si «s» est un 
petit entier , INUMBP ramène ce nombre sinon INUMBP ramène NIL. Cette 
fonction est principalement utilisée par le compilateur pour améliorer Le 
code généré : en effet les comparaisons de petits entiers se font sur 
des adresses et sont donc trés repide. (е nombre de petits entiers est 
déterminé au moment de la génération du système ҰЦШРР. D'une manière 
standard tous les nombres entiers dans l'intervalle [-127 , 45111 sont 
des petits entiers. 


ex : (INUMBP 78) р? 78 
(INUMBP -2558) E» NIL 
(EQP 12 12) E? T (toujours, si 12 est un peti* entier? 


http://www.artinfo-musinfo.org VLISP 10.3 Manuel de référence, août 1978, page 60 / 224 


10.3 Manuel de Référence Paga 53 


(FIXP <s>) ISUBR à 1 argument] {pour FIX Predicate) 


Cette fonction sert à tester si l'argument «s» est un nomhre entier. Si 
«5» est un nombre entier FIXP ramène ce nombre sinon FIXP raméne NiL. 


ex : (FIXP 78) kr 78 
(FIXP -8878) Į? -8878 
(FIXP 12.2) к” NIL 


(FLOATP <s>) [SUBR à 1 argument] (pour FLOAT Predicate} 


Cette fonction sert à tester si l’argument «s» est un nombre flottant. 
Si «s» est un nombre flottant FLOATP ramène ce nombre sinon FLCATP raménc 


ex : (FLOATP 100) Er МП 
(FLOATP 100.1) r» 100.1. 


(TYPNUMB <=>) ISUBR à 1 argument] (pour ТҮРе NUMBer) 


cette fonction teste le type du nombre donné en argument et ramène 
l'atome : | 

- FIX si l'argument «n» est de type entier, 

- FLOAT si l’argument «n» est de type flottant, 

- NIL si l'argument «n» n'est pas un nombre. 


ex : (TYPNUMB 14) K FIX 
(TYPNUMB 14.4) ІР” FLOAT 
(TYPNUMB "ou") pP NIL 


4.3 Les Conversions 


Ces fonctions testent si leur argument est un nombre. Dans Le cas où il ne 
l’est pas, une erreur apparait. Le libellé de cette erreur est : 

«fonction» : жж non numeric arg : «argument» 
dans lequel le nom de la fonction et L'argument incriminé sont imprimés. 


(FIX <n>) ISUBR à 1 argument] 


convertit Le nombre flottant «n» en son équivalent entier. Un calcul 
d'arrondi est effectué automatiquement de (а manière suivante : [а 
partie entiére est incrémentée de 1 si la partie fractionnaire est >- 0.5 
(pour ies nombres négatifs le test est «« 3 0.5 A, 
EX: (FIX 3.14) rr 3 

(FIX 3.98) т” 4 

(FIX 3) ES 3 


(FLOAT <n>) [SUBR à 1 argument] 


convertit [е nombre entier <n> еп son équivalent flottant. 


ех: (FLOAT 3) Lr 3. 
(FLOAT -2) p» -2. 
(FLOAT 120000000) pr» 1.2Е8 
(FLOAT 3.14) ЫР 3.14 


http://www.artinfo-musinfo.org VLISP 10.3 Manuel de référence, août 1978, page 61 / 224 


Раде 60 10. 3 Manuel de Rétérence 


4.6  Arithmétique Entiére 
Les fonctions qui vont être décrites utilisent des opérandes supposés de Luz 
entier. Ces fonctions n'effectuent aucun contrôle de validité de type. S. 
Les arguments ne sont pas des nombres entiers, ces fonctions livrent гп 
général de bien étranges résultats. Toutefois un calcul impossible provoque 
l'erreur жж arithmetic exception (voir cette erreur). 
(ABS <n>) ISUBR à 1 argument! 
ramène la valeur absolue de l'argument «n». 
ex : (ABS 10) р 10 
(ABS -10 x7 10 
(ADD1 «n») [SUBR à 1 argument] 
ramène la valeur : «n» + 1 . 
ех: (А001 6) © 7 
(А001 -4) г> -3 
(DIFFER «ni» ... <nN>) ISUBR à М arguments] 
ramène la valeur : «nl» - «n2» - ... - «nN» 
ex : (DIFFER 6) HF 6 
(DIFFER 12 7 3 > 2 
(MAX «nl» ... <nN>) [SUBR а М arguments] 


ramène la valeur maximum des «nl» ...  «nN». 


ex : (MAX 13 5 3 1) CS 5 


(MIN «nl» ... <nN>) [SUBR à М arguments] 
ramène іа valeur minimum des «nl» ... «nN». 


ех: (MIN 5434) p 3 


(MINUS <n>) [SUBR à 1 argument] 
ramène іа valeur : - «n» 
ex : (MINUS -10 XF 10 
(MINUS 25) >” -25 
(PLUS «n1» ... <nN>) ISUBR а М arguments] 
ramène la valeur : «ni» + «n2» +... + <nN> 


ex : (PLUS 5 6) ES 11 
(PLUS 5 6 4) kF 15 
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(QUO «ni» ... <пһ>) ISUBR а N arguments] | 
ramène la valeur du quotient de : «nl» / «n2» / ... / «nN» 
ex : (QUO 20 5) C A | 
(QUO 4042) x 5 
(REM «nl» «n2») I[SUBR à 2 arguments] 
ramène la valeur du reste de la division entière de «nl» par «n2». 
ex : (REM 11 3 І” 2 
(REM 14 22 р> 14 
(SUBl <n>) [SUBR à 1 argument] 
ramène la valeur : «n» ~ 1 
ех: (SUBI 7) XF 6 
(5081 -9 C -10 
(TIMES «nl» ...  «nN») ISUBR à N arguments] - 
ramène la valeur : «nl» x «n2» ж... ж «nN» | 


ex : (TIMES 10 4) ғ 40 
(TIMES 2 3 4) C 24 


4,5 Comparaisons Entieres 


Ces fonctions n’effectuent aucun test de validité de type. Si (өз arguments 
de ces fonctions ne sont pas dés nombres, teurs résultats пе sont pas 
significatifs. Elles ne provoquent jamais d'erreur. ` 5o 


(EQN «ni» «n2») [SUBR à 2 arguments) {pour ҒА Number) 


ramène «nl» si les 2 nombres «nl» et «n2» sont égaux, sinon EQN ramène 


ex : (EQN 58 58) їг 58 
(EQN 34 34.) CG NIL 
(EQN 21963283741 21963283741.) г?” 21963283741 
(et c'est bien le seul cas d'égalité mixte!) 


(EVENP <n>) ISUBR à 1 argument] 
raméne «n» si «n» est pair. Si «n» est impair EVENP remène NIL. 


ex : (EVENP 4) ES 4 
(EVENP -5) Т” NIL 
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(GE «ni» «n2» ... <nN-1> <nN>) [ISUBR à М arguments] 


Бі «ni» >= «n2» >= ... >= «nN-1» >» <nN> alors GE ramène «nN-1» sinon GE 
ramène NIL. 


ex : (GE 3 7) E NIL 
(СЕ 7 7 4 3) IF 4 
(GEZP <n>) [SUBR à 1 argument] 


ramène «n» si «n» est plus grand ou égal à 0. Si «n» est plus petit que 
Q GEZP ramàne NIL. 


ех: (GEZP 5) ЕР 5 
(СЕР 0) к? 0 
. СЕР -5) ЕР NIL 
(GT «nl» «n2» ... <пМ-1> <nN>) ISUBR à М arguments] 


Бі «nl» > «n2» >... > <nN-1> > «nN» alors GT ramène «nN-1» sinon GT 
ramène NIL. | 


ex : (GT 5 5) ЕР NIL 
(GT 7 4 3) кР 6 
(62Р <n>) [ISUBR à 1 argument] 


ramène <n> si <n> est plus grand que 0. Si <n> est plus petit ou égat à 
0 GZP ramène NIL. 


ex : (GZP 5) E 5 
(GZP 0) ІР МП 
(GZP -5) Іі” NIL ` 
(LE «ni» «n2» ... <пМ-1> «nN») ISUBR à N arguments] 


Бі «ni» <= «n2» <= ,.. «e «nN-1» <= «nN» alors LE ramène «nN-1» sinon LE 
гатепе NIL. | 


өх: (LE 5 5) Р 5 
(LE 4 4 6 9) r 9 
(LEZP <n>) [ISUBR à 1 argument] 


ramène <n> si <n> est plus petit ou égal à 0. Si <n> est plus grand que 
0 LEZP ramène NIL. | 


ex : (LEZP 5) ES NIL 
(LEZP 0) Em. 0 
(LEZP -5) ІР -5 
(LT «nl» «n2» ... <пМ-1> «nN») [SUBR à N arguments] 


бі «nl» < «n2» < ... < «nN-1» < <nN> alors LT ramène «nN-1» sinon LT 
remëne NIL. 


ex : (LT 5 5) > NIL 
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(LZP <n>) [SUBR à 1 argument] 


ramène <n> si <n> est plus petit que 0. Si <n> est plus grand ou égal à 
0 LZP ramène NIL. 


ех: (LZP 5) үғ NIL 
(LZP 00 г? NIL 
(LZP -5) тү” -5 


(NEQN «ni» <n2>) [SUBR à 2 arguments] {pour Not EQ Number} 


ramène «ni» si les deux nombres «nl» et «n2» sont différents. NEQN 


ramène NIL si les deux nombres sont égaux. Cette fonction est 
équivalente à (NOT (EQN «n1» «n2»)). 


ех: (NEAN 56) г” 5 
(NEQN -3 -3) г; МП 


(NEROP <n>) ISUBR à 1 argument] 


raméne «n» si «n» est différent de 0. Si «n» égal 0 NEROP ramène NIL. 


ex : (МЕВОР 5) рғ 5 
(NEROP 0) к NIL 
(NEROP -5) pr -5 


(ODDP «n») ISUBR à 1 argument) 


ramène «n» Бі «n» est impair. Si «n» est pair DDDP ramène NIL. 


ex : (ODDP -4) kP NIL 
(ODDP-5 rr -5 


(ZEROP <п>) [SUBR à 1 argument] 
ramène 0 si <n> est égal à 0 sinon ramène NIL. 


ex : (?ЕНОР 5) к” МП 
(ZEROP 0) xe 0 
(2ЕНОР -5) ғ NIL 


4.6 Arithmétique Mixte 


Ces fonctions testent si leurs arguments sont des nombres. Dans le cas où ils 

пе le sont pas, une erreur apparait. Le libellé de cette erreur est : 
«fonction» : Жж non numeric arg : «argument» 

dans lequel le nom de la fonction et L'argument incriminé sont imprimés. 


Ces arguments peuvent être de n’ importe quel type : entier ou flottant, Si 
l’un des arguments est flottant, Le résultat est un nombre flottant ; si tous 


les arguments sont de type entier, le résultat est un nombre entier. IL y а 
donc conversion automatique des arguments avec priorité aux nombres flottants. 
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(1+ <n>) [SUBR à 1 argument] 
ramène la valeur : «n» 41. 
ex : (1+ 3) ES 4 
(1+ 1.2) к> 2.2 
(1- <n>) [SUBR à 1 argument] 
ramène la valeur : «n» - 1 . 
ех: (1- 3) E 2 
(+ <пі> <п2>) [SUBR à 2 arguments] 


ramène la somme des 2 arguments : «nl» 4 <n2> . 


ex : (+ 2 3) ES 5 
(+ 2 3.2) r> 5.2 
(+ 2.3 3) EP 5.3 
(+ 2.3 3.3) p> 5.6 


(- «nl» <n2>) [SUBR à 2 arguments] 
ramène La différence des 2 arguments : «nl» - «n2». 
ex : (- 3 1) е” 2 
(- 3 1.) ES" 2. 
(~ 3,2 1.1) ЕР 2. 
(ж <пі> <n2>) ISUBR à 2 arguments] 
ramène іе produit des 2 arguments : <nl> ж «n2» . 
ех: (x 32) т 6 
(ж 3 2.1) ES 6.3 
(ж 3. 2.2) K 6.6 
(// «nl» <n2>) [SUBR à 2 arguments] | 
ramène le quotient des 2 arguments : «nl» // «n2» . Le caractère / est 
un caractère spécial, il faut Le doubler pour utiliser cette fonction : 
on doit écrire (// 3 2.) et non (/ 3 2.2. 
ex : (// 32) ЕР 1 
(// 3 2.) ES 1.5 
(// 1 3.) ES 0.3333333 
(жж «ni» <п2>) [SUBR à 2 arguments] 


ramène la valeur de l'évaluation de «nl» à la puissance «n2». 


ех: (жж 2 3) EH 8 
(жж 2. 4) E 16. 
(жж 2 D, 


) ҮР 32. 
(жж 2 0.5) IF 1.414214 
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(жж 2 -0.5) E 0.7071068 
(жк 15. 0) ES 1. 


(/N «nl» <n2>) [SUBR à 2 arguments] 


ramène le reste de la division de «nl» et «n2». Cette fonction est 
utilisée еп général avec des arguments entiers pour ramener la valeur du 
reste d'une division entiére (la fonction MODULO ). Le caractére А étant 
un macro-caractére, il faut le faire précéder du caractère / (quote 
caractère) pour utiliser cette fonction. On doit écrire (/N 5 3) et non 


(53. 


ех; (/\ 5 3) > 2 
(/\ 5. 3.) yP 2.980232Е-8 


4.7 Comparaisons Mixtes 


Ces fonctions testent si Leurs deux arguments sont des nombres. Dans (в cas 


où ils ne le seraient pas, une erreur apparait. Le libellé de cette erreur 
est : | 


«fonction» Жж поп numeric arg : <argument> 
dans lequel Le nom de (а fonction et l'argument incriminé sont impr imés. 


Si Les deux arguments sont де type entier, ces fonctions effectuent des 
comparaisons entières (etles sont donc équivalentes aux fonctions de 
comparaison entières), si au moins un des arguments est flottant, les 


comparaisons s’opèrent en flottant après conversion, si nécessaire de l'autre 
, argument. | | | 


(= «ni» <п2>) [SUBR à 2 arguments] | 
ramène «ni» si «nl» et «n2» sont égaux. Si «nl» est différent de «n2», = 
raméne NIL. | | | 22 
ex : (= 3/8 378.) Er 378. 
(= 22 23) ІР NIL 
(М «nl» <п2>) [SUBR à 2 arguments] 


ramène «ni» si «nl» est différent de «n2». Si «nl» est égal à «n2», # 
ramène NIL. ` | | 


ех: (# 327.12 312) ұғ 327.12 
(# 22.0 22) ES NIL 
(> «nl» <n2>) [SUBR à 2 arguments] 


ramène «nl» si «nl» est supérieur à «n2». Si «ni» est inférieur ou égal 
à «n2», > ramène МП. 


ex : (> 327.12 327) р” 327.12 
(> 327 327.1) EF МП 
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(>» «nl» <n2>) [SUBR à 2 arguments] 


ramène «nl» si «nl» est supérieur ou égal à «n2». Si «nl» est inférieur 
à «n2», >= ramène NIL. | | | | 


ex : (>= 327. 327) ES 327. 
(>= 327 327.1) ЕР МП 


(<= «nl» <п2>) [SUBR à 2 arguments) 


ramène «nl» si «ni» est inférieur ou égal à «n2». бі «nli» est supérieur 
à «n2», <= ramène NIL. ü 


ex : (<= 327, 327) ЕР? 327. 
(<= 327.1 327) ҮР МП. 


(< «nl» «n2») [SUBR à 2 arguments) 


ramène «nl» si «nl» est inférieur à «n2». бі «nl» est supérieur ou égal 
à «n2», « raméne NIL. m | 


ex : (< 327.12 327) E” NIL 
(< 327 327.1) к> 327 


4.8 Fonctions Logiques 


Pour toutes les fonctions qui vont étre décrites, l'argument s'il existe doit 
être de type entier. Il n'y a pas de conversion automatique. Ces fonctions 
ne provoquent jamais d'erreur. | 7 7g a 


(COMPL <n>) ISUBR à 1 argument] 


ramène la valeur du complément Logique de «n» 


ex : (СОМРІ 0) E -1 
(COMPL -2 j 1 


(LOGAND «ni» <п2>) [SUBR à 2 arguments] {pour LOGicat AND) 


Effectue l'opération de ET logique entre Les deux opérandes «nl» et «n2». 
(LOGAND «ni» <п2>) est équivalent à l'ancienne écriture 2 
(BOOLE 5 «n1» «n2»). | 


ex : (LOGAND N36 1252 Е” W24 
pour savoir si «n» est une puissance de 2 : 
(EQN «n» (LOGAND «n» (MINUS <n>))) 
(LOGSHIFT «ni» «n2»? [SUBR à 2 arguments] (pour LOGicat SHIFT} 
Effectue un décalage logique de la valeur «ni», «n2» fois. бі «n2» est 
>) un décalage gauche s'effectue, dans le cas contraire (<п2> < 0), Le 
décalage s'effectue à gauche. | 


ex : (LOGSHIFT 8 3) E 64 
(LOGSHIFT 8 -22 т” 2 
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(LOGOR «ni» <п2>) [SUBR à 2 arguments! {pour LOGicat OR) 


effectue l'opération de OU logique entre les deux opérandes «nl» et «n2». 
(LOGOR «ni» <п2>) est équivalent à l'ancienne écriture : 
(BOOLE 1 «ni» «n2». 


ех: (LOGOR M5 \7) mp M7 


(LOGXOR «nl» «n2») [SUBR à 2 arguments] (pour LOGicat ХОН) 


effectue l'opération de OU exclusif logique entre les deux opérandes «n1» 
et «n2». (LOGXOR <п1> <n2>) est équivalent à l'ancienne écriture : 
(BOOLE 9 <nl> <п2>). 


ex: (LOGXOR5 3) Ce 


(SHAP <n>) [SUBR à 1 argument] 


ramène la valeur résultant de l'échange des 18 bits de droite avec les 18 
bits de gauche de «n». 


ex: (SWAP 11773330017 т? 333001000177 


4.8 Fonctions Mathématiques 


Pour toutes les fonctions qui vont être décrites, l’argument s'il existe doit 
être de type flottant. Il n'y a pas de conversion automatique. | 


(SQRT <n>). [SUBR à 1 argument] 


Beete а racine carrée du nombre «n». <n> doit être un nombre flottant 
positif. | 


ex : (SORT 25.) г” 5. 
(SQRT 5.) Į? 2.236068 
(SORT -5.) ғ”. E 
XFRSLIB attempt to take SART of negative args 2.236068 


E: message d'avertissement est donné par la fonction en cas d' argument 
négatif. 


(SIN <n>) ISUBR à 1 argument] 


ramène la valeur du sinus. de l'angle «n» exprimé en radians. 


(COS <n>) [SUBR à 1 argument] 


ramène (а valeur du cosinus de l'angle «n» exprimé en radians. 


(АТАМ <n>) І5ОВН à 1 argument] 


ramène (а Valeur de La fonction arc tangente, c'est-à-dire (а valeur de 
l'angle (en radians) dont la tangente est «n». 


y exemples d'utilisation des fonctions trigonométriques ; 
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(SETQ PI 3.14199 > 3.14159 


(SETQ PI:2 (// PI 222 г” 1.570795 
(SETQ PI:4 (// РІ 4) > 0.7853975 
(SIN 0.) p 0 | 
(SIN PI:4) > 0.7071063 

(SIN PI:2) ЕР 1. 

(COS 0.) ЕР 1. 

(COS PI:4) Eë 0.7071072 

(COS PI:2) ЕР 1.334181E-6 
(SETQ X 1.2) E 1.2 


(SART (+ (жж (SIN X) 2) (ж (COS X) 220. E 1. | 
s (а fonction TANGENTE n'est pas standard : définissons- la ; 


(DE TANG (X) 
(// (SIN X) (COS X))) EF TANG 


(TANG 0.) E 0 

(TANG PI:4) E 0.9999987 

. (TANG РІ:2) E 749523.3 
(ATAN 0.) E 0 Е 
(АТАМ 1.) p" 0.7853382 


(АТАМ (TANG 1.123) kr 1.123 


(EXP <n>) [SUBR à 1 argument] 
ramène la valeur в puissance «n». 
ex : (EXP 0) ЕР 1. 
(EXP 1.) Е 2.718282 
(LOG <n>) ISUBR à 1 argument] 
ramène la valeur du logarithme népérien de «n». 
ex : (LOG 1.) re 0 
(LOG 2.718282) r 1l. 
(10610 <n>) [SUBR à 1 argument] 
ramène (а valeur du logarithme décimal de «n». 
ex : (LOG10 1.) ES 0 
(0610 10.) E 1. 
(10610 20.) ЕР 1.30103 
(10610 100.) ES 2. 
(RANDOM >) ISUBR а O argument] 


ramène à chaque appel un nombre flottant, aléatoire, compris dans 
l'intervalte 10. , 1. Г. | 5 De 


ex : (RANDOM) p 0.1948187 
(RANDOM) г” 0.7324636 
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(RANDOM) г” 0.6087399 | 
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4.10 Exemple D'utilisation Des Fonctions Numériques 
? а (MSG) (PRIN1 MSG) (TERPRI -1) (READ)) 


? Es FNT (X Y) (ж NF (+ (COS (// X ND)) (+ (COS (// Y ND)) 22222 


? (DE FRISES (NL NF ND X Y) 

? (PRINT "Quand tu en as marre fais ESCAPE.I .") 

? (WITH (ESCAPE.I NIL «&FINI 'VOILAD) | 

? (ESCLOOP &FINI 

? (SETQ 

? NL (QUAM "Donne Le nb de Lignes a faire (e.g. 60) ") 

? NF (QUAM "Donne le facteur de ж (e.g. 2.5)") 

? ND (QUAM "Donne Le facteur де // (e.g. 7) э) 

? (SETQ Ү 30.) 

? (REPEAT NL 

? (PRINC '/ 4) 

? (SETQ X -30. Y (1- Y» 

? (REPEAT 81 

? (PRINC | 

? (CF IX (FNT X Y)) JEN | 
? AER 8x x/.: 1*5, 8s? Иве ЛГМ] 5999 
? (SETQ X (14 X))) | 

? (TERPRI))))) 

= FRISES 

? (FRISES) 


"Quand tu еп as marre fais ESCAPE.I ." 

"Donne le nb de lignes à faire (e.g. 60)" ? 25 
"Donne іе facteur de ж (e.g. 2.5)" ? 3.5 
"Donne Le facteur de // (e.g. 7) " ? 7 


-ЖИН----------- ИН... 22 se kika 2:2..ЖЕА-ИЙ----------- Яв+ c 
H. | Шам e $8 t mviererererereret $ š a  ЖКЕ--ИЙ--- mi | ----Ий 
#--- ~H. . $ 3 1 омоч 2 1 „ oed - —— | ІШ 
#-- | | -HHHK o E 3 $ oam? E a a WELLEN | | | | 
--- || || BT KETTER E | |]]--- 
— | | LG, 22222222. . x EH II) | -- | 
-- | 1220 0-42 -- || | | -- 
-- | ! Let -- | | | =- 
--ТІРНИНІ! || HEAR 0272228800 SEKR d | || == 
--|| HHI |--##++жж...1:::::1:1:2...жж++ИЙ-- I | | |-- 
--- ІН PR pet --- Е = 
Sé ІШ BÉLA, o . 3 8 £ Zoe? 3 2 Ze ED —— | [| --# 
й---| | |{-—-##++жж„.:::мә iif.ocoenHEH--—- | ---# 
ИН----|||ІІ----ЯЯа-кж..222ммеммеменҙ 1: ..жЖ++ЙЙ--- == | | ----Й 
+##----------- ИАЖ... iiie PM etii. RO en Hil 
HN МИНА... $ $ $ nn PP еген: ..жк-КИИИ------- SOA M 
wO ж... $ $e PRIE PP bauen ii. ooe  IBHBHHHHHTHH-- x | 
xokci-IHRll EH ok. e cites С Ч БИКЕ ТКТ ЕКСЕ 
базада ны Шы sasa à y TONNE E о o атада 
„ ЖӘНЕН... $ 2 2 ^ ^,, , 8999 GG, , uiii. Ж-О. . 
г. + Жжжж. . 111, 00000000008, , Mam: :: „жано. . : | 
22.. oO, o o $ 2 ^, , ВВВ ммм ӘӘ, М... ЖООК. 28 - 
Lu: EE Mm BE, Тілме... .ЖЖЖ....222 
ЛЕТТІ” 452277, ECKE CN AUDE EPP ео оноо о IN 
тый RE EE amb, 084222222222 v, О РЧА t 1 1 wx 
т à Ps iiis EE ne 


"Donne іе nb de Lignes à faire (e.g. 60)" ? 


“.. 
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CHAPITRE 5 


LES CHAINES DE CARACTERES 


MIS] permet La manipulation d'objets de type chaîne de caractères (STRINGS). 
Ces chaînes sont stockées dans une zone gérée dynamiquement. бі cette zone se 
révèle être de taille insuffisante, une erreur apparait ; Le Libellé de cette 
erreur est : 
жж no room for strings. 

Cette erreur est fatale. IL faut augmenter la taille de la zone allouée aux 
chaînes, dans La fonction CONFIGURATION du fichier initial CONFIG. INI et 
relancer tout [е travail. 


Une chaîne de caractères est une suite illimitée (si ce n'est par іа taille de 
la mémoire), de caractères quelcongues. ба représentation externe est cette 
suite de caractères encadrée du caractère délimiteur de chaîne (le caractère 


guillemet ^"), Si ce caractère doit être inséré dans une chaîne il doit être 
doublé. 


Les caractéristiques d'une chaîne sont : 
- les caractères qu'elle contient 
- le nombre de ces caractères (la longueur de la chaîne). 


ex : la chaíne contient les caractéres et a pour longeur 
"CHer-10" СНегє10 7 
, C, NON" "25" C'NON"?) x 
"н aucun 0 


( cette chaîne s'appelle la chaîne vide ) 


En une chaîne de caractères est considérée comme un ATOME (әй non une 
Liste). 

La valeur d’une chaîne de caractères est cette chaîne de caractères elle-même: 
il n’est donc pas nécéssaire de quoter Les constantes de chaîne. 

Tout comme les nombres, une chaîne n'a ni C-valeur ni P-Liste. 


ex : "galamantdelareine" E "galamantdelareine" 
(CAR "allatour") E NIL 
(ATOM "magnanime") k^ T 


En entrée, la lecture des chaînes par 1а fonction READ est validée par (е 
bit 17 du Н.б. , ce bit est positionné par défaut. 


En sortie, la restitution du caractère délimiteur de chaîne est validée par le 
bit 27 du Н.б. , ce bit est positionné par défaut. 


Le сагасіёге délimiteur de chaîne (le caractère guillemet ") peut lui-même 


être modifié au moyen de La fonction (STATUS 18 «c») dans laquelle «c» est Le 
nouveau délimiteur de chaîne (cf: Les fonctions STATUS). 


Pour toutes ies fonctions qui vont suivre, les arguments qui doivent être de 
type chaîne sont représentés par «strN». Si ces arguments ne sont pas de type 
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и 


chaîne, ils sont convertis automatiquement en chaîne аи moyen 


STRING. 


6.1 Les Fonctions De Conversion De Chaînes 
(STRING <s>) [SUBR à 1 argument] 


convertit la S-expression «s» (de type quelconque) 
caractères. 


- si <s> est une chaîne STRING ramène cette même chaîne. 


- Si <s> = NIL, STRING ramène la chaîne vide "" . 


- si «s» est un atome littéral, STRING ramène іа chaîne 


les caractères du P-name de cet atome. 


de la fonction 


une chaîne de 


contenant tous 


- бі «s» est un nombre, STRING ramène (а chaîne contenant tous (ез 
caractères de la représentation externe de се nombre dans (а base de 


conversion courante. 


- si «s» est une liste, elle est supposée être une Liste de caractères 
(i.e. d'atomes mono-caractères) et STRING ramène (а chaîne composée de 


ces caractéres. 


ex : (STRING "OUKELABONPOLIN") KP -QUKELABONPOL IN" 


(STRING) rr 

(STRING 'RUSE) pr "RUSE" 
(STRING (- 22.222 58.1) Er "-35.878" 
(STRING '(A Z /. QD E" "AZ.Q" ` 


(MAKLIST «str») ISUBR à 1 argument] 


convertit La chaîne «str» en une liste де caractéres 


(i.e. d’atomes 


mono-caractères). Si «str» est La chaîne vide, MAKLIST ramène NIL. - 


ex : (MAKLIST "URSUS") r (URSUS 
(MAKLIST 'LAMBDA) E (L À MB D A) 


(IMPLODE <s>) [SUBR à 1 argument] 


si «s» est une chaîne, IMPLODE utilise les caractères constituant de 
cette chaîne de іа même manière que s'ils étaient lus par la fonction 
READ. IMPLODE suppose donc que la chaîne de caractères est La 
représentation externe d'un objet Lisp quelconque qui sera converti. 


^ 


Gi La chaîne de caractère n'est pas une représentation correcte d’un 
objet Lisp, une erreur apparait ; le Libellé de cette erreur est : 


жк IMPLODE error : «n» 


dans lequel «n» est Le numéro du type de l'erreur. 


identiques aux numéros de l'erreur жж READ error «n». 


Ces numéros sont 


ex : (IMPLODE "-567.9") | p" -567.9 
(IMPLODE (04) E NIL 
СІМРІ ОПЕ "GENsymmm") Er GENsymmm 
CIMPLODE "' [AB . Cl") Eë (QUOTE (MCONS A B С)) 


(IMPLODE (CONCAT "(" "A B" ")")) EF (АВ) 
(IMPLODE "(A B C1") 
жж IMPLODE error : 6 
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(READSTR <n>) [SUBR à 1 argument] (pour READ STRing) 


Si l'argument «n» n'est pas fourni, ramène sous forme de chaîne, la Ligne 
sulvante du fichier d'entrée ; ` la Ligne se termine à l’occurence du 
Caractère RETURN qui n'est pas inclus dans La chaîne résultat. Cette 
fonction est souvent utilisée pour Lire des réponses en langage naturel 
sur le terminal. Si l'argument numérique «n» est fourni, READSTR ramène 
les <n> caractères suivant du fichier d'entrée sous forme de chaîne. 


Cette autre possibilité est utilisée pour lire des fichiers de données en 
format fixe bloqué. 


5.2 Prédicats Et Tests Sur Les Chaînes 
(STRINGP <s>) (SUBR à 1 argument] {pour STRING Predicate} 


ramène «s» sl «s» est une chaine, sinon STRINGP raméne NIL. 


ex : (STRINGP "POT") Er "Рот" 
(STRINGP 56) E? NIL 


(NULLSTRP <str>) [SUBR à 1 argument] {pour NULL STRing Predicate) 


ramène «str» si «str» est la chaîne vide "", sinon NULLSTRP ramène NIL. 
11 est à noter que NIL et La chaîne vide sont deux objets différents. 


ex : (NULLSTRP (ADD1 5)) C NIL 
2 (NULLSTRP NIL) ES "" 
(car NULLSTRP convertit son argument) 


(EQSTRING «stri» «str2») [SUBR à 2 arguments] 


ramène «stri» si la chaîne <stri> contient Les mêmes ceractères et 
possède (а même  Longeur que (а chaîne <str2>. Cette fonction est 
équivalente à (а fonction EQ si Les 2 arguments sont des chaînes; dans 
le cas oü ils ne le seraient pas, EQSTRING va les convertir en chaîne 


avant d'effectuer la comparaison. 
ex : (EQSTRING "ALA" "ALAS") 


E NIL 
(EQSTRING ` "GLUCK "GLUCK") E» "GLUCK" 
(EQSTRING '(AZE R) 'AZED ұғ "AZER" 


(STRINGL «str») ISUBR à 1 argument] (pour STRING Length) 


raméne le nombre de caractéres de la chaíne «str». 


ex : (STRINGL "HUGH') р 4 
(STRINGL (5081 -9) Er 3 
(STRINGL EXPR) Er A 
(STRINGL NIL) Er 0 
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5.3 Fonctions De Création De Chatnes 
(СОМСАТ «stri» ... <strN>) ISUBR à М arguments] 


ramène une chaîne résultant de la concaténation des copies de toutes les 
chaînes «stri» ... <вігМ>. 


ex : (CONCAT "Ab" (ADDl 14) "" 'AD EF "Ab1SAT" 


(SUBSTRING «str» «ni» <n2>) I[SUBR à 3 arguments] 


ramène une copie de La sous-chaîne de <str> commençant à la position «nl» 
et se terminant à la position «n2». 

sl «nl» > «n2», SUBSTRING ramène la chaîne vide "". | 

Бі «ni» n'est pas un nombre, la sous-chaine commence au debut (С.е. en 
position 1) de la chaîne «str». | 

si «n2» n'est pas un nombre ou est omis, (а sous-chatne se termine à (а 
fin de la chaîne «str». 


ex : (SUBSTRING "ABRACAD" 2 4) 19” "BRA" 
(SUBSTRING "ABRACAD" О 4) Jk» "ABRA" 
(SUBSTRING "ABRACAD" 2) p» "BRACAD" 
(SUBSTRING 'LONGMOT 4 4) p "6" 


(DUPL «str» <n>) [SUBR à 2 arguments] 


ramène la chaîne résultant de 1а duplication «n» fois de là chaîne «str». 
бі «n» n'est pas un nombre ou est omis, DUPL raméne une copie de la 
chaîne «str». бі «n» est <= à 0, DUPL ramène la chaîne vide "". 


ех : (DUPL "ALO" 3) E "ALOALOALO" 
. (DUPL 'ALO) Er "ALO" 
(DUPL "ALO" -D rx "" 


(REVERSTR «str»? ISUBR à 1 argument] 
remène une copie de la chaîne «str» inversée. 


ex : (REVERSTR 'POTOP) ` p> "РОТОР" 
(REVERSTR "DELUGE") > "EGULED" 


(TRANSLATE «stri» <str2> <str3>) ISUBR à З arguments] 


ramène une copie de la chaîne «stri» en y remplaçant les caractères qui 
font partie de (а chaîne «str2» par leurs homologues dans la chaíne 
<str3>. бі des caractères de la chaîne <str2> n'ont pas d'homologues 
dans іа chaîne «str3» (i.e. si (STRINGL «str2») > (STRINGL <str3>) alors 
ces caractères sont enlevés de La chaîne résultante. 


ex : (TRANSLATE "ABRACADABRA" "АВС" "OL") KP "OBLOODOBLO" 
se Lit : traduire la chaîne ABRACADABRA en y 
remplacant tous les А par O, tous les R par L 
et en y enlevant tous les C. 
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(NEXTSTR «str»? [SUBR à 1 argument] {pour NEXT STRing) 


cette fonction est (а seule fonction qui modifie physiquement la chaîne 
argument «str». | NÉXTSTR ramène өп valeur le premier caractère de La 
chaine «str» et l'enlève PHYSIQUEMENT de celle-ci. NEXTSTR est donc 
l’équivalent pour Les chaînes de la fonction NEXTL qui opère sur des 
Listes. Cette fonction est utilisée pour obtenir un à un les différents 
caractères d’une chaîne. 


ex : (SETQ strg "ESARINTULOC") р> "ESARINTULOC" 
(NEXTSTR &trg) pr "E" 
strg E* "SARINTULOC" 
(NEXTSTR strg) rr "5" 
etrg ЕР "ARINTULOC" 


5.4 Exemples D'utilisation Des Chaines 


(DE CONVBDC (NB) 
CIF Oe Я 1) 


(CONCAT (CONVBDC (QUO NB 2)) 


| (REM NB 2)))) 
CONVBDC 


; time = O ms ; 
(CONVBDC 13) 
"1101" 


; time = O ms ; 


(DE PALINDROM (CH) 


{ fonction qui teste si la chatne CH est un palindrome ; 
(SETQ CH (TRANSLATE CH Tote? If OD ")) 
; enlève tous Les espaces et les signes de ponctuation ; 
(EQSTRING (REVERSTR CH) CH)) 

PAL I NDROM 


$ time = 0 ms ; 

(PALINDROM "ELU PAR CETTE CRAPULE ...") 
"ELUPARCETTECRAPULE " 

$ time = 20 ms ; 

Тш "GALAMANTELAREINE ") 


y time = 20 ms ; 


9-98 8 -32-9-0-9-70-0-0 9 H -O-08 Ë DD ч) зм) IV 


< 
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CHAPITRE 6 


LES TABLEAUX ET 
LA PILE UTILISATEUR 


Un nouveau type d'objet est apparu : [е tableau + Un tableau est un ensemble 


(atome 
hombre, chaîne ou Liste). Les différents éléments d'un tableau sont numérotés 


à l'aide d'un indice, Tous les tableaux sont actuellement uni-dimensionnés, 


de mémoires contigues pouvant . contenir. n’ importe quel objet 


[в premier indice est 0 (ces tableaux sont donc des vecteurs). 


Les différents tebleaux sont stockés dans ` une zone spéciale 


al louée 


Statiquement ; cette zone est partagée avec la pile utilisateur. Les 
fonctions sur Les tableaux permettent de définir un tableau, d'avoir accés aux 
éléments d'un tableau, de modifier un élément d'un tableau ou d'appliquer une 


fonction aux différents éléments d'un tableau. 


6.1 Définition Et Accès Aux Tableaux 


(DA «nom» «taille» «fonction» [SUBR à 3 arguments] 
| {pour Define Array) | 


permet de définir un nouveau tableau. «nom» est un atome littéral qui 
devient le nom du tableau; «taille» est le nombre d'éléments que peut 
contenir le tableau. S'il n'y a рав assez de place pour stocker ce 


nouveau tableau, l'erreur suivante apparait : 
жж no room for arrays. 


бі la fonction (d’initialisation) n'est pas fournie (i.e. 
<fonction>=NIL), tous Les éléments du tableau sont initialisés à NIL; 
dans le cas contraire, la fonction est appliquée pour chaque élément avec 
l’ indice de cet élément lié au ler argument (s'il existe) de la fonction. 
IL peut donc y avoir un appel implicite de la fonction MAPARRAY. 
différentes valeurs  ramenées par cette fonction seront [ез valeurs 
d'initialisation des éléments du tableau. DA ramène Le nom du tableau en 


valeur. 


ex : (DA ' TB 100) ; définition d'un tableau de nom TB de 
100 éléments. Chaque élément est 
initialisé à NIL ; 


(ОА "TDL 10 (LAMBDA OO 0») + définition d'un tableau de 


10 éléments, chaque élément 
est initialisé 80; 


(DA 'ARR 10 ; définition d'un tableau de 10 


(LAMBDA (X) (- 9 30) éléments initialisés à : 
9876543210; 
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Une fois le tableau défini, on a accès à chacun des éléments du tableau de 
deux manières différentes : 


- en évaluant une forme à 1 argument dont la fonction est le nom du tableau et 
L'argument l'indice de l'élément désiré. Le nom du tableau devient donc une 
fonction d'accés à ce tableau.  L'argument de cette fonction d’accès est 
évalué. 


- en utilisant la fonction ARRAY. 


(ARRAY «at» <n>) [SUBR à 2 arguments] 


ramène La valeur de l'élément «n» du tableau «at». 
(ARRAY '<at> «n») est donc équivalent à («at» «n») mais oblige à ce que 
«at» soit un nom de tableau précédemment défini. 


L' interprète ne teste la validité de l'indice fourni que si te bit 7 du В.С. 
est positionné (ce qui est l'option par défaut). 


IL est facile de définir de nouvelles fonctions d'accés à des tableaux déjà 
définis ce qui permet de tester soi-même la validité du ou des indices (voir 
Les derniers exemples). 


ex : (IB 5 t NIL 
(TBL (ADD1 4)) E 0 
(ARRAY 'TBL (ADD1 4)) xW 0 


8.2 Les Fonctions Standard Sur Les Tableaux 


Pour toutes les fonctions sur les tableaux qui vont être décrites, les erreurs 


(le nom fourni n'est pas un nom de tableau ou l'indice est incorrect) sont 
signalées par le message : 


жж array error : «nom du tableau» «indice» 


(DIM «nom»? [SUBR à 1 argument] 


L'argument «nom» doit être un nom de tableau. DIM ramàne le plus grand 
indice de ce tableau. 


ex : (DA "ТВ 50) > TB 
(DIM 'TB) E 49 


(SETA «nom» «indice» «valeur») [SUBR à 3 arguments] 
{pour SET Array} 


met dans l'élément du tableau spécifié par le nom еї l'indice, la valeur 
fournie en troisième argument. SETA ramène en valeur (а valeur chargée. 


ex : (SETA "ТВ 5 10) І” 10 
(TB 5) E 10 


(SETQA «nom» «indice» «valeur») [FSUBR] 


est identique à (а fonction SETA mais Le поп du tableau n'est pas évalué, 
en revanche l'indice «indice» et (а valeur «valeur» Le sont toujours. 


ex + (SETQA ТВ 6 (А001 1922 іт” 20 
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(MAPARRAY «nom» «fonction») [SUBR à 2 arguments] 


permet d'appliquer (а fonction spécifiée à chacun des éléments du tableau 
dont (в nom est donné en ler argument. Le ler argument de (а fonction 
est lié (s'il existe) à l'indice de l'élément du tableau.  MAPARRAY 
ramène NIL en valeur. 


ex: ; initialisation des diffórents óléments de TB avec 
les valeurs 1 2 3 4 5 .. ; 
7. "ТВ (LAMBDA (X) (SETA 'TB X (ADD1 X)))) 
r 


(MAPARRAYQ <nom> <fonction>) [FSUBR1 


est identique à la fonction MAPARRAY mais le nom du tableau n'est pas 
évalué, en revanche le nom de la fonction l'est tou jours. | 


(FILLARRAY «nom» «liste») [SUBR à 2 arguments] 


renge dans les différents éléments du tableau, dont le nom est  Spécifié 
comme ler argument, (ев éléments successifs de la Liste 2ème argument. 
бі (а Liste est trop courte, [е reste du tableau est rempli avec des 
NIL; si la liste 2ème argument est en réalité un atome, le tableau est 
rempli avec cet atome. FILLARRAY ramène le nom du tableau en valeur. 


ex : ; définition d'un tableau ; 
(DA 'TB 10) E TB 
p initialisation des éléments aux valeurs spécifiées ; 
(FILLARRAY °ТВ ' (024653 1) ІР TB 
{ initialisation de tous les éléments à la valeur 99 ; 
(FILLARAY ,ТВ 99) E ТВ 


(LISTARRAY <nom>) [SUBR à 1 argument] 


ramène la Liste constituée de tous les éléments du tableau dont te nom 
est fourni en ler argument. 


ex : (DA 'TB 5) | rr TB 
(FILLARRAY "TB '(10 11 12) Er TB 
(LISTARBAY 'TB) | CG (10 11 12 NIL NIL) 


6.3 Exemples D’utilisation Des Tableaux 


^) 


gd ~ 


2-99-99 


(ПА ”ТВ 100) 
ТВ 


; définition d'un tableau de nom TB 
; possédant 100 éléments, chacun des 
; éléments est initialisé à NIL. 


че w те 


(DIM 'TB) 
99 


(ПЕ ТВ1 (1) ; définition d'une nouvelle fonction < 
(IF (LE 0 I 99) ; d'accés à TB1 qui teste la validité Я 
(ТВ 1) ; de l'indice fourni ; 
M (ERROR ["débordement TB1 " 1109) 
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2 (DE TB2 (I J) ; définition d'une nouvelle fonction ; 
? (IF (AND (LE 0 I 9) ; permettant d'accéder au tableau ; 
? (LE 0 J 9)) ; TB au moyen de 2 indices pouvant ; 
? (TB (PLUS (TIMES I 10) J)) 3 varier de 0 à 9. Cette ; 
? (ERROR ["débordement TB2 " 1 J1))) ; fonction teste ; 
| ; les indices fournis ; 
- TB2 
? SES ТВ 20 3) 
? (TB1 20) 
- 3 
2 (ТВ2 2 0) 
- 3 
? (ПА 'CLAIR 10 (LAMBDA OO 
? ((ADD1 X) '("zero" "un" "deux" "trois" "quatre" 
? "cinq" "six" "sept" "huit" "neuf")))) 
= CLAIR 
? (CLAIR 1) 
^ tun" 
? (CLAIR 2) 
ом "deux" 
22 CMAPARRAYQ CLAIR (LAMBDA (X) 8 
? (SETQA CLAIR X CCONCAT "-" (CLAIR X) "—")))) 
= NIL 
? (CLAIR 9) 
- H-neut-H 


6.4 La Pile Utilisateur 


IL existe une zone mémoire dans laquelle il est possible de sauver 
temporairement des objets quelconques. Cette zone est gérée comme une 
pile : c'est la pile utilisateur (qui n'a aucun rapport avec la pile utilisée 
par l'interprète). (а zone dans laquelle est stockée cette pile utilisateur 
étant partagée avec les tableaux, sa taille est donc déterminés раг la 
différence entre la taille de la zone allouée aux tableaux et la somme des 
tailles de tous les tableaux définis. En cas de débordement de pile Les 
erreurs suivantes apparaissent : 

жж user stack overflou. 

жж user stack underflow. 
Après ces erreurs (comme après toute autre erreur) [е pointeur de pile 
utilisateur est reinitialisé. 


(PUSH <в1> ... <sN>) [SUBR à М arguments] 


empile Les valeurs des differentes expressions «si» ... <sN> et raméne 
<sN> en valeur. Toutefois si aucun argument n'est fourni (i.e. бі on 
évalue (PUSH)), une vateur NIL est quand même empilée. 
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(POP <n>) [SUBR à 1 argument] 


Бі L'argument «n» n'est pas fourni, le sommet de pile est ramené еп 
valeur et (в pointeur de pile est mis à jour. Si l'argument numér ique 
«n» est donné, РОР ramène le <n>ième élément contenu dans (а pile à 
partir du pointeur de pile mais celui-ci n'est pas modifié. бі ce nombre 
est négatif, on peut accèder à des éléments de (а pile précédemment 
empilés puis dépilés. Il ne faut toutefois pas sortir de la zone allouée 
pour la pile sous peine de déclencher les erreurs de débordement de pile. 


(PSTACK <n>) ISUBR à 1 argument] 


бі L'argument «n» n'est pas fourni, ramène Le pointeur de pile courant. 
бі l'argument numérique «n» est fourni, il devient La nouvelle valeur du 
pointeur de pile. Cette fonction sert donc tout naturellement à 
manipuler le pointeur de pile lui-même. 


Exemples d'utilisation de la pile utilisateur 


ex : (PUSH "А 3) 3 
(PUSH) E NIL 
(PUSH 'B) 
(POP 0) 
(POP 1) 
(POP 2) 
(POP) 

(POP) 
«РОР 10 
(РОР .-2) 
(POP) 
(POP) 


(PUSH 1 2) 
(SETQ PPILE (PSTACK)) 
(PUSH 3 4 5 6 7 8) 


Ч 


км 
r^ 


444444444 


194499 eT 


(par exemple) 


(PSTACK PPILE) 33456 
(POP) 2 
(POP) 1 
(POP) 


ЖЖ user stack underf Lou. 
| еге etc q... 
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СНАРІТВЕ 7 


LES ENTREES / SORTIES 
ET LES FICHIERS 


7.1 Les Fonctions D'entrée De Base 


Toutes ces fonctions utilisent Le fichier d'entrée sélecté par la 
fonction INPUT ou FILOP. 
Tous les fichiers d'entrée sont compatibles avec l’éditeur de IRCAM 
TV. La premiére page du fichier, qui contient son répertoire et qui est 
mis à jour par l'éditeur, est considérée par la fonction d'entrée READ 
comme un commentaire. IL faut toutefois prendre garde à ne pas mettre un 
caractère С en tête d'un fichier; се caractére C étant justement, pour 
MISE, la marque du répertoire de ЕТУ. 
Si le fichier d'entrée est associé à un terminal, l'éditeur de Ligne 
standard (DEC ou IRCAM) est activé, Le caractère ? est imprimé avant 
toute lecture de Ligne et un petit Pretty-print effectue un renfoncement 
des entrées en fonction de la profondeur de la lecture. 


(READ? [SUBR à O argument] 


Lit la S-expression suivante (atome ou liste) du fichier d'entrée et [а 
. ramène en valeur. READ est la principale fonction de lecture. 
бі une erreur de syntaxe est détectée, une erreur fatale se produit et Le 
Libellé suivant est imprimé : 
жж read error «n» | 
dans lequel «n» est Le code de l'erreur. Се code peut étre : 


(а S-expression débute par un point (.) 

la S-expression débute pan ) 

(а S-expression débute par 1 

un . ne ве trouve pas avant le dernier élément d'une liste 
mélange de séparateurs du genre ( x y . z] 

occurence d'un 1 sans [ correspondant 

оссигепсе d'une ) sans ( correspondante 

fin de Liste de IMPLODE 

argument incorrect pour IMPLODE 


оомо CT-P- N e 


(READCH) [SUBR à O argument] (pour READ CHaracter) 
Lit et ramène en valeur (е caractère suivant du fichier d'entrée. Ce 


caractère est retourné sous la forme d'un atome (Littéral pour tes 
lettres et numérique pour les chiffres). 
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(PEEKCH) [SUBR à 0 argument] {pour РЕЕК CHaracter? 


ramène en valeur (е caractère du fichier d'entrée d'une manière identique 
à La fonction READCH, toutefois, ce caractère n'est pas véritablement (и 
mais seulement "consulté". IL en résulte que des appels successifs de La 
fonctions PEEKCH ramènent toujours le même résultat. РЕЕКСН est utilisé 
pour "sentir" Le caractère suivant du fichier d'entrée AVANT de le Lire 
véritablement. 


(TEREAD) ISUBR à 0 argument] (pour TErminate READ) 


passe à l'enregistrement suivant du fichier d'entrée (une ligne sur TTY, 
une — carte perforée, ...) еп ignorant Le reste éventuel de 
l'enregistrement courant.  TEREAD ramène NIL en valeur. 


(READSTR <п>) [SUBR à 1 argument] {pour READ STRing) 


бі l'argument «n» n'est pas fourni, ramène l'enregistrement suivant du 
fichier d'entrée sous forme d'une chaíne de caractéres, un enregistrement 
étant une suite de caractères quelconques encadrée d'un (ou plusieurs) 
caractères de type NULL. Ce type d'utilisation est utile par exemple 
| pour Lire sur te terminal des lignes sous forme de chaînes de caractères. 
Si lL’ergument numérique «n» est donné, READSTR ramène іа chaîne 
constituée des <n> caractères suivants du fichier. Tous les caractères 
de type NULL sont sautés dans ce type de lecture. 
Cette fonction est utilisée pour lire des fichiers de données еп format 
fixe ou variable. 


27.2 Contrôle Des Fonctions D'entrée 
7.2.1 La Lecture Standard - 
La lecture des S-expressions s'effectuent en format LIBRE. 


Durant Le Lecture des atomes litéraux seuls les 13 premiers caractères sont 
pris en compte. Il y a transcodage automatique des caractéres minuscules en 
caractères majuscules (ce transcodage est contrôlé par le bit 19 du R.G.). 
S'il faut insérer des caractères spéciaux dans un atome littéral, il faut les 
faire précéder du caractére quote-caractére /. 


ex : CaR correspond à l'atome САВ 
LONGTRESLONGATOME н к LONGTRESLONGA 
RE/ G/) а g RE (3) 


Les nombres sont représentés par une suite de digits dans la base d'entrée 
courante et peuvent étre précédés du signe - . 


Les chaînes de caractères sont représentées par un suite de caractères 
ы. pes encadrée du caractère délimiteur de chaîne (par défaut le "). 

' importe quel caractère peut faire partie d’une chaéne en particulier les 
caractères Return et Line-feed. IL n'y a jamais de transcodage minuscule 
majuscule durant 1а lecture des chaînes. 


11 est possible d’ insérer des commentaires, qui sont totalement ignorés au 
cours de [а lecture. Un commentaire est une suite de caractères quelconques 
encadrée du caractère délimiteur de commentaire (par défaut le ;). 


La représentation des listes est classique : une liste se représente par une 
parenthèse ouvrante "(" suivie des éléments de (а Liste suivis d'une 
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parenthèse fermante ")". IL est possible également d'utiliser 1а notation 
pointée généralisée. 

ех: (A. (B. (C. D))) correspond à (AB . C) 
(СА) . (BD " " СА) B) 


IL existe en une nouvelle notation permettant de décrire les appels des 
fonctions de constructions de Listes simples NCONS CONS MCONS et LIST. Cette 
notation utilise les crochets carrés [ 1 et Le point. 


[s] ` correspond à (NCONS s) 
sl . 821] mE (CONS s1 s2) 

в] s2 ,,, sN-1. sN 1 " " (MCONS sl s2 ,,, sN-1 sN) 
t si s2 ,,, sN ] ge (LIST sl в2,,, sN) 


ex: ['PREM Y [(CDDR L) . [X]]] est équivalent à 
.. «LIST 'PREM Y «CONS (CDDR |.) (NCONS Х))) 


Au début de la fonction READ, il peut y avoir un nombre quelconque de 
parenthèses fermantes qui sont ignorées. Ceci permet de refermer à coup sûr 
ra S-expressions ауес une giclée de parenthèses fermantes sans avoir à les 
dénombrer. 


(DE FOO (М) (А001 N)))))) est Lu sans erreur 


Des bits du R.G. permettent de régler certaines modalités de lecture en 
particulier : 


- le bit 10 du R.G. fait imprimer L'image de tous les enregistrements lus еп 
entrée. Се bit n'est pas positionné par défaut. | | 


- le bit 12 du R.G. valide le signe + au début des nombres. Ce bit n'est pas 

positionné. par défaut. | | | 

= le bit 13 du R.G. valide Le signe - au début des nombres. Се bit est 
positonné par défaut. | е 9 


- le bit 14 du R.G. valide l'action du QUOTE-caractère (par défaut le /). Се 
bit est positionné par défaut. 


- le bit 17 du R.G. valide la Lecture des chaines de caractéres. Ce bit est 
positionné par défaut. | 


= le bit 18 du R.G. valide la Lecture des commentaires encadrés аи 
delimiteur ; . Ce bit est positionné par défaut. 


- le bit 19 du R.G. valide le transcodage minuscule majuscule en entrée. Се 
bit est positionné par défaut. | 


7.2.2 Les Macro-caractàáres - 


Un macro-caractère est un caractère auquel est associé une fonction qui est 

lancée automatiquement à la Lecture de ce caractère dans le flux d'entrée. La 

valeur ramenée par cette fonction est insérée à La place du macro-caractère. 

Tous les caractères peuvent être utilisés comme  macro-caractàre. 

s e eer des macro-caractères dans Le flux d'entrée est validés par Le 
L du А.б. 


IL existe 2 macro-caractères standard : 
- le quote (apostrophe) ' qui, placé devant une S-expression que Lconque, 
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ramène (а Liste (QUOTE expression). 
ex : ' (A B) est équivalent à (QUOTE (A B)) 
ИМ; " (QUOTE (QUOTE A)) 


- l’anti-slash \ qui, placé, devant une S-expression quelconque ramène cette 


S-expression en considérant que tous les nombres qui y sont inclus sont 
écris en octal. 


ex : \(630 . 300) est équivalent à (408 . 192) en décimal 


(DMC «c» <і> «si» ... <sN>) [FSUBR] 
{pour Define Macro Character} 


l’ergument «c» doit être un atome mono-caractère. ОМС associe à се 
caractère une fonction qui possède une Liste de variables locales <і> 
(cette Liste est obligatoire à cette position même s'il n'y а pas de 


variables. . Locales) et un corps de fonction «sl» ... <sN>. DMC ramène 
.«c» en valeur. 


сех : Si les macro-caractères standard n'étaient pas 
définis, on pourrait [е faire de la manière suivante : 


(DMC /^ O 
[QUOTE «READ?1) ; ramène la tiste (QUOTE «s-expr lue») ; 
(DMC /\ 
(PUSH (STATUS 5)) ; sauve l’ancienne base d'entrée : 
(STATUS 5 8) ; passage en mode octal ; 
(PROG1 
(READ) ; lecture de l'expression 


(qui est ramenée en valeur) ; 


(STATUS 5 (РОР)))) ; restauration de l'ancienne base ; 


(STATUS 18 «c» <s>) [SUBR à М arguments] 


permet également de définir un macro-caractére.  l'argument «c» (évalué) 
doit être un caractère, et L'argument «s» doit être une fonction 
explicite (LAMBDA-expression). Се STATUS permet de définir (ев 
macro-caractères dont Ls caractère est évalué. Si «s» est donné cette 


fonction ramène «s» sinon cette fonction ramène (а définition courante 
associée au caractère «c». | 


ex : (STATUS 18 (А001 \136) ; c'est le caractère fei ; 
(LAMBDA O ['STOP1)) ; qui provoque l'arret de MIS ; 


Si la fonction DMC n'était pas standard on pourrait 
la définir au moyen de la fonction STATUS : 


(DF DMC (L) 
(STATUS 18 
(CAR L) 
['LAMBDA . (CDR L)1) 
(CAR L)) 
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(STATUS 19 <c>) [SUBR а М arguments] 


détruit La définition du macro-caractère «c» (plus précisément entève (а 
fonction associée à се macro-caractère). Si «c» n'est pas un caractère, 
provoque l'erreur STATUS. Cette fonction ramène «c» en valeur. 


(STATUS 20) [SUBR à М arguments] 


ramène un pointeur sur Le dernière S-expression іше avant l'appel d'un 
macro-caractère. Ce STATUS est utilisé pour connaître (CAR (STATUS 20») 
ou pour modifier (SET (STATUS 20) ... ) 1а dernière S-expression lue 
juste avant l'appel d'un macro-caractóre. 


ex : création des 2 macro-caractères 
":" pour CONS et "s=" pour SETQ en notation infixe 


(DMC ";" O 
(PUSH (CAR (STATUS 20))) 
(SET «STATUS 20) 
(IF (NEQ (PEEKCH) '/«) 'CONS 
(READCH) 'SETQ)) 


pour le ramener ; | 
modifie l'élément précédent ; 
avec CONS si : ; 

ou SETQ si := ; 


ve we жа те ve 


(POP) ) ramène l'élément ргеёсес=л+ : 
la lecture de (А : B) sera équivalente à (CONS A В) 
i (A B : C) : (A CONS B C) 
: | (X Ze 4) и (SETQ X 4) 


7.2.3 Type Des Caractéres Et READ.TABLE - 


L'enalyseur lexical MISA (i.e. (а fonction READ) utilise une "table de 
lecture" pour effectuer commodemment son analyse. Cette table associe un type 
code ainsi qu'une valeur en tant que macro-caractère à chacun des caractères. 

Cette table de lecture est totalement accessible à L'utilisateur qui peut 
ainsi la changer pour pouvoir Lire facilement de nouveaux dialectes de LISP 


aux syntaxes étranges. 
Les types disponibles sont les suivants : 


0: type NULL. Tous les caractères de ce type sont complètement ignorés à La 
lecture (Ex: [е caractère Line/Feed, le caractère "Avance-bande" ou NULL 


+. Ф 


1: type SEP. Définit un caractére séparateur standard (Ex: l’espace, ia 
tabulation ...). 


2 : type NORMAL. Définit un caractère normal pouvant être utilisé pour 
construire un P-name. 


3 : type DOT. Ce type de caractère (Le point . par défaut) sert à écrire 
les paires pointées. 


4: type LPAR. Ce type de caractère (La parenthèse ouvrante ( par défaut) 
sert de caractère de début de Liste. 
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5: type RPAR. Се type de caractère (la parenthèse fermante ) par défaut) 
sert de caractère de fin de liste. 


6 : type LBRA. Ce type de caractére (le crochet ouvrant [ par défaut) sert 
de caractère de début d'appel de la fonction LIST. 


7: type RBRA. Се type de caractère (le crochet fermant 1 par défaut) sert 
de caractère de fin d'appel de la fonction LIST. 


8: type COMMENT. Ce type de caractère sert а indiquer le début d'un 
commentaire qui sera terminé à  l'occurence d'un caractère de ce méme 
type. Par défaut il n'existe qu'un caractère de ce type, le caractère 
point virgule ; . 


9: type CSTRING. Ce type de caractère fait office de caractère délimiteur 
| de chaîne. Par défaut il n'existe qu'un seul caractère de ce type, Le 
caractère guillemets " . 


10: type QUOTEC. Ce type de caractére est utilisé pour "quoter" n'importe 
quel autre caractère. "Quoter" un caractère consiste à lui donner 
implicitement Le type 2 (le type des caractères normaux). Par défaut il 
n'existe qu'un seul caractère de ce type, le caractere "slash" / . 


7.2.3.1 Manipulation Des Types - 


Un certain nombre de fonctions standard et de fonctions de type STATUS vont 
pouvoir manipuler cette table. Les STATUS 14, 15, et 16 des versions 
précédentes de MSP (VLISP 10 et VLISP 10.2) ne sont plus utilisés mais sont 
conservés dans le système pour des raisons de compatibilité. 


(STATUS 17. <с> <n>) [SUBR à N arguments] 


Ce STATUS permet de connaître et/ou de modifier le type du caractère «c». 
Si «n» est donné, le type est modifié. Cette fonction ramène (е type 
courant du caractére «c» aprés modification éventuelle. | 

Si L'argument <c> n'est pas un caractère (i.e. ип atome de type 
quelconque dont Le P-Name a pour longeur 1) ou si l'argument «n» est 
fourni mais n'est pas un nombre, une erreur apparait dont le Libellé 


to: 
жж STATUS ERROR : TYPECH. 


. (TYPECH «c» <n>) [FSUBR] {pour TYPE CHaracter? 


Cette fonction est identique à la fonction STATUS 17 mais les arguments 
ne sont pas évalués. * 


ex : (STATUS 17 '/.) ІР? 3 
(TYPECH < 4) P 64 


(ТҮРЕН > 5) E 5 
L'entrée «CONS ’ (A> '«B)» sera lue (CONS , (А) ° (B)) 
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7.2.3.2 Manipulation De La Tabte De Lecture - 


Ces deux fonctions manipulent la table de lecture d'une manière globale. Une 
table de lecture en est une liste de 128 éléments (il y a donc un élément 
par caractère). Chaque élément peut être : | 

- un nombre qui représente le type du caractère | | | 

- une liste dont Le CAR est un nombre qui représente le type du caractére et 
dont Le CDR est (а fonction associée à се caractère considéré comme un 
macro-caractère. Cette fonction est soit une Lambda-expression explicite soit 
un nombre dénotant L'adresse de la fonction standard associée а Ce caractère. 


(READ. TABLE <і>) [SUBR à 1 argument] 


Si l’argument <l> est fourni, il représente la nouvelle table de Lecture 
(sous [в format décrit précédemment). READ. TABLE ramène ta table de 
lecture courante aprés modification éventuelle. | 


(READ.STD) ISUBR à O argument] (pour READ STanDard) 


remet la table de lecture dans son état initial (état de La table au 
départ de l’interprète). БЕАП.5Т0 ramène еп valeur cette table de 
lecture originelle sous le format décrit précédemment. mE 


ex : si un programme fait une large utilisation des fonctions 
de modification de (а table de lecture, il est prudent 
de le faire précéder de quelquechose du genre : .. Е 
(PUSH (READ. TABLE) ) | | 
et de le faire se terminer par : 
(READ. TABLE «РОР)) 


Un certain nombre de programmes systàmes qui aiment 
se faire lire par tous et dans n'importe quelles 
circonstances débutent par : E 


(PROGN (SETQ READ. TABLE (READ. TABLE) ) ` 
(READ. STD) | 
"РВЕТ) 


et se terminent par : 
(READ. TABLE READ. TABLE) 


Voici l'édition de La table normale de lecture : 


(DE /» (D Dia ND 
(DMO /+ (М) (TTAB №) 
(DMC /+ O І?/» (READ)1) 


(DE PRTABL (N L) 
(WHILE L 
(PRINC '/W) 
(STATUS 6 8) 
(PRIN1 М) 


(STATUS 6 10) 


(PRIN1 98 N 213 (ASCII N) 216) 

CINCR N) 

CIF (АТОМ (CAR 12) (PRINT (CAR L)) 
(PRINT (CAAR L) +20 (CDAR L))) 

(NEXTL L))) 


(PRTABL 0 (READ. TABLE?) 
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dr 0 0 

\1 1 а 2 (LAMBDA NIL 

v 2 а? | 

Vë 3 2 

42% É 2 

\5 5 ё 2 (LAMBDA NIL 
wë 6 а 2 (LAMBDA NIL 

\7 7 + 2. (LAMBDA NIL 

vun 8 A 1 (LAMBDA NIL 

M1 9 1 

M2 10 

мз 1 fi 

\14 12 

MS 13 

№6 14 6 2 

їч 15 - 2 

\20 16 r2 (LAMBDA NIL 

V1 17 F 2 (LAMBDA NIL 

\22 18 à 2. | 

\23 19 1 2 

\24 20 à 2. 

V5 21 4 2 

v6 22 12 | 

\27 923 1 2 (LAMBDA NIL 

\30 я 2 D 

\31 25 5 2 (LAMBDA NIL 

\32 26 и 2 | 

\33 27 ~ 2 

\34 28 М2 

15 29 Ü 2 

158 30 682 

\37 3 B2 

“0 32 1 

vi 33 12 

\42 34 " 8 

M3 35 # 2 

M4 38 $ 2 

VS 3 % 2 

М6 38 & 2 

М7 38 "2 132836 

\50 40 са 

Vi 41 ) 5 

№52 42 ж 2 

\53 43 а 2 

Vi 445 , 2 

(55 45 - 2 

\56 46 . 3 

\57 47 7 10 

\60 48 02 

\61 49 12 

\62 50 22 

\63 51 32 

\64 52 A 2 

\65 53 52 

\66 54 6 2 

М7 55 7 2 

10 56 8 2 

vu 57 92 

\72 58 : 2 

13 59 , 8 


['LIBRARY (READ)]) 


(RUN ” (SYS (E. SHR)) -1)) 
T’ РНЕМАНЕТЕ (READ) 1) 
(DISPLAY ' (127 D) "D 
"LAMBDA) 


[PRETTY (READ? 1) 
(STATUS 1 5) (STATUS 21) (STATUS 2 S) NIL) 


(RUN '(SYS (WHO . SA) 
['/» (READ)1) o 


http:/www.artinfo-musinfo.org VLISP 10.3 Manuel de référence, août 1978, раде 92/224 ` 


МОРІ 10. 3 Manuel de Référence Se ` Page 91 


< 2 

(75 61 = 2 
176 62 > 2 
(77 63 ? 2 
1100 64 9 2 
M01 65 А 2 
1102 66 B 2 
M03 67 С 2 
M04 68 р 2 
1105 69 Е 2 
1108 70 F 2 
1,07 71 G2 
\110 72 Н 2 
Mi1 73 I 2 
M12 74 J 2 
\113 75 К 2 - 
514 76 | 2 
\115 77 M2 
M16 78 N 2 
M17 78 O 2 
1120 80 P2 
\121 81 а 2 
M22 82 R2 
M23 83 5 2 
M24 84 T 2 
M25 85 U 2 
\126 86 V 2 
\127 87 H 2 
\130 88 X 2 
M31 89 Y 2 
1132 90 7 2 | 
113 91 L 6 | 
\134 92 \ 2 132844 
\135 93 1 7 MEME | 
M36 94 ^2 | SNP | 
N37 95 + 2 (LAMBDA NIL (STOP) | 
M40 96 с 2 d ССС 
141 97 a 2 | š ' 
1142 98 b 2 
М443 99 c 2 
1144 100 d 2 
\145 101 в 2 
\146 102 f 2 
\147 103 g 2 
1150 104 h 2 
M51 105 i 2 
M92. 108 j 2 
M53. 107 к 2 
154 108 1 2 
\155 109 m 2 
\156 110 n 2 
\157 111 о 2 
1160 112 p 2 

51 113 e 2 

5и | 114 r 2 
4153 115 s 2 
\164 116 t 2 
M65. 117 u 2 
\166 118 у 2 
\167 119 u 2 
1170 120 x 2 
\171 121 y 2 
\172 122 z 2 
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\173 123 { 2 
\174 124 | 2 
\175 125 } 2 
1175 126 4 2 
М177 127 0 


7.2.4 Les Macro-fonctions D'entrée : MACIN - 


бі eu cours d'une Lecture ia fonction READ Lit une Liste dont Le CAR, 
atomique, possède sur sa P-liste L’indicateur MACIN, la fonction associée à 
cet indicateur est lancés automatiquement avec pour liste d'arguments Le CDR 
de [а Liste qui a été lue. La valeur ramenée par cet appel remplace le Liste 
qui а été lue. Ces fonctions sont appellées des Macro fonctions d'entrée et 
sont définies au moyen de la fonction DMI. 

Il existe un indicateur, Le bit 16 du R.G. qui permet de valider le 
traitement de ce type de fonctions. S'il est positionné (ce aui est i'option 
par défaut? ces fonctions sont traitées. 


(DMI «at» «i» «sl» ..  <sN>) IFSUBRI 
| (pour Define Macro Input) 


définit une macro fonction d'entrée associée à l'atome littéral «at», із 
Lista des arguments de cette fonction est <і> et le corps de ceite 
fonction est «sl» ... <sN>. DMI ramène «at» en valeur et pourrait ёїг:. 
définie en М2) : | 
(DF DMI (1) 
(PUT «САН L) (CONS "LAMBDA. (CDR D) 'MACIND) 


7.3 Le Mode LIBRARY 


Un nouveau mode de chargement rapide a été ajouté : (в mode LIBRARY, qui, 
silencieusement, vous charge n'importe quel fichier. Се fichier (d'extension 
VLI, VLA ou VLO) peut se trouver dans votre zone disque ou bien dans d’autres 
zones que vous pouvez spécifier grâce à la nouvelle fonction PATHLTBRARY. 
ATTENTION : Les fonctions se trouvant dans ce type de fichier ne doivent pas 
contenir d'erreurs de syntaxe (Че lecture), ce mode est réservé шых 
chargements rapides das fichiers systèmes et des fichiers contenant ez 
fonctions AUTOLOAD (cf: l’interprète). 
Si des erreurs de lecture se produisent tout de même, (е message suivant 
apparait : 
жж READ error (in LIBRARY) : «n» 
dans lequel «n» est le numéro d'erreur codé d'un manière identique à l'erreur 
жж READ erreur : <n>. 
D'autre part si une fin de fichier apparait dans un fichier LIBRARY aiors 
qu'une S-expression était en cours de lecture, le message suivant apparait : 
жж E.0.F. during READ (in LIBRARY). 


Dans l'état actuel du système, il ne peut y avoir qu'un fichier LIBRARY ouvert 
à 1а fois. бі donc un fichier LIBRARY appelle d'autres fichiers LIBRARY, 
l'erreur suivante Statt : 

xk LIBRARY error. 
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(LIBRARY <file>) [FSUBR] 


charge le fichier <file> en silence (sans aucune Шашы Ce fichier 
doit posséder l’une des extensions standards VLI VLA ou VLO. Si Le 
fichier existe et si le chargement s'est correctement effectué, cette 
fonction ramène «file» еп valeur i.e. le nom du fichier chargé.  Danc 
tous les autres cas LIBRARY ramène NIL. Le répertoire disque dans Lequel 
le fichier doit être cherché est précisé par la fonction suivante. 


ex : (QR (EQ (TYPEFN 'PHENARETES) ’EXPR) 
(LIBRARY PHENAR) ` ` 
(ERROR "mais ой est-elle donc passée 2")) 


(PATHLIBRARY «ppni» ...  «ppnN») [FSUBR] 


indique à la fonction LIBRARY Les différents répertoires dans lesquels 
elle doit rechercher le fichier. Le répertoire utilisateur est indiqué 
par NIL. La recherche s'effectue dans l'ordre des arguments donnés à 
cette fonction. 

Par défaut (PATHLIBRARY O SYS), indique qu’il faut d’abord essayer de 


chercher le fichier dans le répertoire de l'utilisateur et en cas d'echec 
dans celui du systéme. 


ex : (PATHLIBRARY 
О ; ppn de l'utilisateur ; 


SYS ; ppn SYS: ; 
(LIS . ЈЕВ) ; ppn style IRCAM ; 
\(730 . 272)) ; ppn style TOPS10 ; 


7.4 Les Fonctions De Sortie De Base 


Toutes éditent dans un buffer de sortie totalement accessible à ‘utilisateur ` 


et écrivent sur le fichier de sortie sélecté au moyen des fonctions OUTPUT ou 
FILOP. Si au cours d’une édition Le buffer de sortie est plein, ili est 
automatiquement imprimé, en utilisant La fonction (TERPRI 1), et l'édition se 
poursuit sur {а Ligne suivante. 


(PRINT <в1»>... <SN>) ISUBR à М arguments] 


édite dans Le buffer de sortie les différentes S-expressions 
<51> ... <sN> puis imprime ce buffer (après insertion des caractères 
Carriage Return / Line Feed). PRINT ramène <sN> en valeur. 


(PRINT «s1» ... <sN>) ISUBR à N arguments] 


Edite dans le buffer de sortie Les différentes S-expressions 
«sl» ... «sN» sans imprimer Le buffer. РНІМІ ramène <sN> en valeur. 


(TERPRI <n>) [SUBR à 1 argument] {pour TERminate PRInt) 


imprime Le buffer de sortie, se positionne en début de Ligne en imprimant 
le code Return, puis saute «n» Lignes en imprimant «n» fois le code 
Line-feed, Si l'argument «n» n'est pas un nombre ou n'est pas fourni, 
TERPRI agit comme si «n» était égal à 1 provoquant un interlignage 
Simple. L'appel (TERPRI) est donc équivalent à (TERPRI 1). 

Si «n» « 0, le positionnement en début de Ligne est quand méme réalisé 
mais aucune Ligne n'est sautée ce qui permet de réaliser une 
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sur impression . 

бі «n» = -1, le positionnement en début de ligne n'a pas lieu et aucune 
Ligne n'est sautée. Cette option permet d'imprimer des messages et 
d'attendre des réponses sur la même Ligne ce qui facilite Les dialogues. 


ех: ? ҮТ АШ (msg) (РБІМІ msg? (TERPRI -1) CREAD)) 


2 (QUAM "Nb de satellites de VEGA") 
Nb de satellites de VEGA ? xxx 


(xxx est la réponse entrée) 
= ххх 


(PAGE) [SUBR à 0 argument] 


imprime (е buffer de sortie puis saute une page (en envoyant Le code 
Form-Feed?). PAGE ramène NIL en valeur. 


(PRINC «c» <n>) I[SUBR à 2 arguments] {pour PRINt Character? 


édite «n» fois le caractère «c». Si «n» n'est pas un nombre ou est omis, 
(е caractère «c» n'est édité qu'une fois. PRINC ramène «c» en valeur. 


(SPACES <n>) ISUBR à 1 argument] 


édite «n» fois le caractère espace. Si «n» n'est pas un nombre ou es: 
omis, un seul espace est édité. SPACES ramène «n» en valeur. 


(TAB «n»? [SUBR à 1 argument] 


édite «n» fois le caractàre tabulation. Si «n» n'est pes un nombre ou 
est omis, une seule tabulation est éditée. Les  tabulations sont 
d'ordinaire en position 8, 16, 24, 32, 40... . 


(TTAB <n>) [SUBR à 1 argument] 
édite un nombre d'espaces tel que le nombre дв caractéres actuellement 
édités dans la ligne soit égal à «n». Autrement dit (TTAB n) se met en 


position «n» du buffer de sortie. TTAB est utilisé pour réaliser des 
colonnages. | 


7.5 Contrôle Des Fonctions De Sortie 
Les fonctions de sortie éditent (ев représentations externes des objets 


dans un buffer de sortie accessible au moyen de fonctions spécialisées. Un 
préfixe imprimable est ajouté au début de chacune des lignes imprimées. 
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7.5.1 Le Butter De Sortie - 


Le buffer de sortie est organisé de la maniére suivante : 


1-------------- impression — r NM 


édition | —— | 


eoo 
|ххххххххххххххх | geg |. | 


x _ | 
. “ф““------------------ 
^ préfixe Т 1 T 
^ début du buffer | 
| Marge gauche 


| Pointeur courant | 
Marge droite 


Les éditions ne s'effectuent dans le buffer de sortie qu'entre 1а marge gauche 
et la marge droite alors que les impressions vont porter sur tout le buffer. 
L'accés aux valeurs de 1а marge gauche, du pointeur courant et de la marge 
droite est réalisé au moyen de fonctions STATUS ; il existe de plus une 


fonction OUTBUF permettant de manipuler directement n'importe quel caractère 
de ce buffer de sortie. 


(STATUS 7 «n») 


permet de modifier (si «n» est donné et est numérique?) ou de connaître La 
valeur de (а marge gauche courante. | | 


(STATUS 8 <n>) 


. permet de modifier (si «n» est donné et est numérique) ou de connaître La 
valeur de 1а position courante du pointeur sur le buffer de sortie. Се 


pointeur pointe continuellement sur le premier emplacement disponible du 


(STATUS 9 «n») 


permet de modifier (si «n» est donné et est numérique) ou de connaître Le 
valeur de la marge droite. 


(OUTBUF «n» <c>) [SUBR à 2 arguments] {pour  OUTput BUF fer} 


permet de modifier le <n>ième caractère du buffer de sortie avec Le 


Caractère «c», si l’argument «c» est donné.  OUTBUF ramène toujours [а 
valeur du <n>ième caractère du buffer de sortie. 


ex : Si Les fonctions SPACES et TTAB n'étaient pas 
Standard, on pourrait les définir de le 
maniére suivante : 


(DE SPACES (М) | 
CIF (LT (PLUS (STATUS 8 ND) (STATUS 9») 
(STATUS 8 (PLUS (STATUS 8) ND») 
(ТЕВРВІ) )) 


(ПЕ ТТАВ (М) 
(AND (GEZP N) (LT М (STATUS 9)) (STATUS 8 N))) 
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7.5.2 Limitations D’ impression - 


Pour pouvoir Limiter Les impressions des structures très longues et rendre 
possible celles des Listes circulaires deux nouvelles fonctions ont éte 
ajoutées. | 


(PRINTLENGTH <n>) [SUBR à 1 argument] 


permet de connaître et/ou de modifier (si L’ argument numer ique «n» est 
fourni) le nombre maximum d'éléments dé Liste qui est imprimé lors d'un 
PRINT ou d'un PRIN1. Par défaut la valeur de ce nombre est de 2000. 51 
une liste а un nombre d'éléments plus élevé, le reste des éléments ne 
sera pas imprimé et des points de suspension apparaitront devant (а 

_ parenthèse fermante. Cette fonction permet d’imprimer des Listes 
Circulaires sur les CDR. PRINTLENGTH ramène en valeur Lla longeur maximum 
Courante. 


ex : (PRINTLENGTH 6) 6 
705423456789 р (123458...) 


(PRINTLEVEL <n>) [SUBR à 1 argument] 


permet de connaître et/ou de modifier (si l'argument numérique «n» est 
fourni) {а profondeur maximum d'impression (i.e. Le nombre maximum de 
parenthèses ouvrantes non fermées). En cas de dépassement, la liste qui 
provoque (е débordement n'est pas imprimée et le caractère & est imprimé 
à sa place. Cette fonction permet а” imprimer des listes circulaires sur 
les CR. PRINTLEVEL raméne en valeur la profondeur maximum courante. 


ex : (PRINTLEVEL 3) E» 3 


"(ПЕ РОО (L) ` 
CIF (NULL (COR LD) L 
| (FOO (CDR L)))) 
P (DE FOO (L) (IF (NULL &) L (F00 805) 


impression des listes circulaires ; 
RN 10) 


і = Ü m 
att Get "50? 


t time = O ms : 
(SETQ L * (X Y 2» 

(X Ri Z) | 
s time = Ü ms ; 
(RPLACD (CDDR L 


D 
Y 
Y Z XY ZA 
m 
) 


AR ERR séi HE OR Raf H df 2. oc 
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7.5.3 Les Préfixes - 


À chaque impression du buffer de sortie un caractère préfixe est ajouté à 
gauche de la Ligne, pour différencier Les Lignes imprimées par Le TOPLEVEL., 
par l'utilisateur ... 

Cette impression du préfixe est validée par Le bit 28 du В.б. qui d’une 
manière standard est positionné. 

ГІ existe 3 préfixes, tous redéfinissables : 

- le préfixe indiquant une forme lue par La fonction TOPLEVEL (i.e. une forme 
à évaluer). Par défaut ce préfixe est le caractère ? . 

- le préfixe indiquant la valeur retournée par une évaluation au TOPLEVEL. 


Per défaut ce préfixe est Le caractère = . 


~ le préfixe indiquant des impressions ordonnées par des fonctions de 
l'utilisateur. Раг défaut ce préfixe est le caractère espace. IL n’y а pas 
alors de préfixe visible. 


Trois fonctions STATUS permettent de consulter et/ou de.modifier ces préfixes; 
chacune de ces fonctions peut avoir un argument «c» qui doit être un caractère 
(і.6. un atome mono-caractère). бі cet argument est donné, il devient Le 
nouveau caractère préfixe, s'il n'est pas donné, ces fonctions ramènent le 


caractère préfixe courant. 

(STATUS 11 <c>) donne accès au préfixe de lecture au TOPLEVEL. Ce ceractère 
est également envoyé sur Le terminal avant toute Lecture de Ligne sur 
celui-ci. 

(STATUS 12 <c>) donne accès eu préfixe des résultats au TOPLEVEL 

(STATUS 13 <c>) donne accès au préfixe des impressions de l'utilisateur. 


ex: ? ED РОО О (PRINT 'NABUCHO) 'OK) 


? (F00) e ligne lue par Le TOPLEVEL 
Roue + ` impression de l'utilisateur 


e — impression du résultat du TOPLEVEL 


7.5.4 édition Standard - 


Les différents objets sont édités dans le buffer de sortie en respectant 
l'unique régle suivante : la représentation externe d'un objet atomique ne 
peut être éditée sur deux Lignes; ceci pour les atomes Litéraux Les nombres 
ou les chaînes de caractères, 


L’ impression d'un objet non (du genre adresse de lancement de SUBR ...) 
est faite en octal, préfixée раг (е caractère А (qui est Le macro-caractére 
d'entrée de passage en mode octal). 

ex : (VAG 'CARD p> \14000000 


L'impression de la fonction (QUOTE <s>) s'effectue '«s» (donc en restituant Le 
macro-caractère standard d'entrée) pour des raisons de lisibilité. 


Des bits du В.б. permettent de régler certaines modalités d'impression en 
particulier : 


- le bit 20 du R.G. indique que Les impressions physiques doivent avoir Lieu 
à |a fin de chacun des remplissages du buffer МІБ et non à La fin du 
remplissage du buffer système associé au périphérique de sortie utilisé. Се 
bit est positionné par défaut si le périphérique de sortie n'est pas un 
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terminal (TTY). 


- le bit 21 du R.G. indique que toutes les éditions débutent par un espace. 
Ce bit est positionné par défaut. | 


- le bit 25 du R.G. indique qu'il faut insérer un espace entre chagua Done 
Ce bit est également positionné par défaut. 


% 


Il existe d'autres indicateurs spécifiques à certains types d'objets : 


- Le bit 24 du R.G. indique que les caractères spéciaux des P-names des 
atomes Litéraux doivent être précédés du caractère / (qui est ie caractère 
"quote caractère"). Cette posibilité permet d'imprimer Les représentation 
externes des atomes litéraux d'une manière telle qu'elles pourront être 
ensuite relues par la fonction d'entrée standard READ. Ca bit n'est pas 
positionné par défaut.. "TEE r dete . . .. 


- te bit 27 du R.G. indique que Les chaînes de caractères doivent étre 
éditées encadrées du caractère délimiteur de chaîne " . Ce bit est positionné 
par défaut. | 


- Le bit 22 du R.G. indique que les nombres positifs doivent débuter раг le 
signe +. Ce bit n'est pas positonné par défaut. 


- Le bit 23 du В.С. indique que les nombres négatifs coivent débuter par іг 
signe -. Ce bit est positionné oan деті. 


7.5.5 Macro Fonction De Sortie : MACOUT - 


Si au cours d'une édition Les fonctions PRINT ou РНІМІ doivent éditer une 
Liste dont le CAR, atomique, contient sur sa P-liste l'indicateur MACOUT , ta 
fonction associée à cet indicateur est lancée avec pour argument le COR de ia 
Liste qui devait être éditée. Ces fonctions sont appellees dos Пассов 
fonctions de sortie, et sont définies au moyen de (а tonction ОМО, 

IL existe un indicateur, le bit 26 du Н.б. qui permet de valider ca 
Lancement : st ce bit est positionné (ce qui est l'option par défaut) ies 
MACOUT sont traitées. Si ce bit n'est pas positionné, les appels des MACOUT 
sont édités sans modifications. 


dO «at» <і> «s1» ... «sN») [FSUBR] 
{pour Define Macro Output) 


définit ипе macro fonction de sortie associée à l'atome littéral «at», із 
Liste des arguments de cette fonction est <і> et le corps de la fonction 
est «si» ... <sN>. | 
DMO ramène «at» en valeur et pourrait être définie en : 
(DF DMO (L) | Е 
(PUT (CAR D «CONS 'LAMBDA (CDR 12) *MACOUT)) 


IL existe un certain nombre de macro fonctions de sortie prédéfinies dans le 
eystéme, elles correspondent aux macro caractéres standard. 

(QUOTE «objet») est restitué '«obiet» 

(LIST «obji» ... <obiN>) est restitué [«objl» ...  «objN»i 


Si le restitution du macro caractère ° n'était pas standard on pourrait ie 


définir : 
(DMC QUOTE (X) (PRIN1 '7/' (CAR 022 
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7.6 Fonctions Spéciales Sur TTY 


Un ensemble de fonctions permettent de travailler directement sur Le terminal 
(TTY) pour utiliser au mieux toutes ses possibilités. Ces fonctions 
n’utilisent pas le système de fichier classique et peuvent donc être utilisées 
à tout moment. 


(TYI) [SUBR à D argument] {pour TtY Input} 


ramène un nombre représentant le code interne du caractère suivant lu sur 
la TTY, sans aucune conversion et sans utiliser l'éditeur de Ligne du 
moniteur (en particulier les caractères RUB-OUT, et les différents 
control-caractéres ne sont plus effectifs). Dans la version IRCAM du 
système, les caractères lus par cette fonction sont représentés sur 9 
bits en utilisant Les terminaux DM. 


(ТҮ5) [SUBR à 0 argument] (pour TtY Sneak) 


si un caractère est prêt à être (и sur le terminal, ramène la valeur que 
ramenerait {а fonction TYI, sinon si aucun caractère n'est prêt TYS 

ramène NIL. Cette fonction permet de tester si un caractère a été frappé 
sur (е terminal. ATTENTION : Le caractère n'est pas reellement lu mais 
simplement consulté (cf: (а fonction PÉEKCH). Donc (UNTIL (TYS) (TYI)) 
est équivalent à (TYI). 


(TYO <n>) ISUBR à 1 argument] (pour TtY Output) 


imprime sur (е terminal le caractère de code interne «n». IL n'est hélas 

pas possible d'envoyer avec cette fonction Les caractères spéciaux de 

positionnement des terminaux DM; Le fonction DISPLAY réalisera les 
. transmissions spéciales. 222. c 


(DISPLAY <і> <n>) [SUBR à 2 arguments] 


<і> est une liste de codes internes. DISPLAY envoie sur le termina! La 
liste de ces codes internes. Pour cette fonction, les codes internes 
peuvent être des commandes spéciales au terminal. Chaque code de 
commande doit être précédé du caractère M77 (valeur 177 octale). 

Le deuxième argument «n» s'il est donné sert à spécifier Les autres 
rite colis spéciaux de L’UUO UPGIOT et n'est donc pratiquement jamais 
utilisé, 

L'utilisation de cette fonction étant très délicate, un certain nombre de 
fonctions standard AUTOLOAD de display ont été regroupées dans le fichier 
SYS:DISPLAY.VLI qui permettent, en outre, d'avoir un contróle absolu sur 
L'écran durant tout Le programme de visualisation. 

Ce fichier est donné en Appendice B. 


Liste des principaux codes des terminaux DM 


code m 

octal effet 

1902 НОМЕ. 

007 Беата le curseur en haut et à gauche de l'écran. 


fait sonner la cloche du terminal 
1010 BACK CURSOR. 


m reculer le curseur d'une position à gauche. 
1011 АВ. 


http://www.artinfo-musinfo.org VLISP 10.3 Manuel de référence, août 1978, page 101 / 224 


Page 100 10.3 Janusi ае dë, éri. 


effectue ипе tabulation à droite. 
\012 LINEFEED. 
descend d'une Ligne. 
1013 TAB CLEAR. 
efface la tabulation à cet endroit. 
\014 SET CURSOR POSITION. 
les deux codes suivants doivent être les nouvelles 
positions en X et en Y du curseur, ces valeurs 
devant être XORées avec la valeur M40. 
1015 CARRIAGE RETURN 
revient en début de Ligne. 
\031 SET TAB. 
positionne une tabulation à cet endroit. 
\032 UP CURSOR. 
remonte le curseur d'une Ligne. 
1034 FORWARD CURSOR. 
avance le curseur d'une position à droite. 
5036 MASTER CLEAR. 


efface l'ecran, les tabulations et tous les autres modes. 


exemples de fonctions utilisant les terminaux DM 


(DE BEEP O 
ф fait sonner la sirène ; 
(DISPLAY ' (1177 \007)) 


(ПЕ QUTXYS (X Y 5) | 
t édite à la Xième ligne, Yiéme colonne la chaîne 5; 
(DISPLAY 
(APPEND 
[N177 M4 (LOGXOR M40 Y) (LOGXOR 5140 001 
(МАРСАН (MAKLIST S) ’CASCII)))) 


(PPIOT «n1» <п2>) [SUBR à 2 arguments] 


- e 


appelle 17000 IRCAM PPIOT avec «ni» comme numéro de fonction et «n2» 
comme argument. Cette fonction permet d'utiliser les "page of paper" des 
écrans еп DM mode. Tous les renseignements utiles d’utilisaton de cette 
fonction se trouvent dans (а brochure "The IRCAM/STANFORD Monitor" су 


Martin FROST et Brian HARVEY. La principale fonction est : 
qui permet de sélecter la page de papier de numéro n. 


(cf: Appendice В). 


(TRMÜP «nl» «n2» <п3>) ISUBR à 3 arguments] 


appelle 17/0 TRMOP qui permet de connaître et/ou de modifier 


caractéristiques du terminal. 

«nl» est le numéro de la fonction à exécuter 
«n2» est [е numéro UDX du terminal 

«n3» est la valeur de modification. 


Toutes ces fonctions sont décrites dans Le MONITOR CALL standard ce 
certains autres пе le sont que dans le STANFORD/IRCAM MONI (Op. ` 


par exemple pour savoir si un terminat est un DATAMEDIA : 


(LZP (ТНМОР \1043)))) 
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Certaines fonctions du fichier SYS:DISPLAY.VLI utilisent cette fonction 
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pour supprimer la brillance des Lignes activées par l'éditeur : 


(ТВМОР 11042 O 1) 


7.7 Les Spécifications De Fichiers 
Une spécification de fichier a, en NIR 10, La forme suivante : 
(«dev» («file» . «ext») («proj» . <prog>) «prot») 


dans laquelle : 


<dev> t est Le nom du périphérique (6 caractères au maximum). 
<file> t est le nom du fichier (6 caractères au maximum). 
«ext» : est le nom de l'extension (3 caractères au maximum). 
«pro j> і est Le numéro (ou nom) de projet. 

«prog» š est le numéro (ou nom) du programmeur. 

«prot» : est le numéro de la protection. 


L'ensemble («proj» . «prog») est la spécification d'un répertoire «ppn» . 
L'absence de cette spécification implique L'utilisation du répertoire de 
l'utilisateur. Les répertoires de type IRCAM (i.e. pouvant contenir des 
lettres) sont correctement traités. 


spécifications par défaut : 


device t TTY (te terminal) 

filename : en entrée LISPIN, en sortie LISPOU 

extension : en entrée VLI pour un fichier écrit en М0. 
d | VLA ou YLO pour des fichiers écris еп LAP. 

| en sortie LST pour tes sorties normales. 
VLP pour les sorties issues du PRETTY-PRINT. 
pour les sorties issues du CROSS. 
| VLX pour (вв sorties issues de 1” INDEX. 

pro jet. programmeur : celui de l'utilisateur 
protection : \055 


Par défaut donc, 
CINPUT) == (INPUT "(ТТҮ (LISPIN . VLI) O )) 
COUTPUT) == (OUTPUT ”«ТТҮ (LISPOU . LST) О \055 9) 


Une nouvelle écriture allégée est également possible, constituée d'un atome 
littéral «at»; elle correspond à із forme : 
(DSK («at» . extension standard) О) 
(INPUT ‘F00) == (INPUT ° (DSK «РОО . МІ) © )) 
(OUTPUT *FO00) == (OUTPUT ° (DSK (РОО . LST) O )) 


ILU est possible dans certaines fonctions standard de type EXPR, contenues dans 
e fichier initial  SYS:VLISP. INI (par exemple (а fonction FILE cf: 
"appendice A) d'utiliser des chaînes de caractères pour spécifier un fichier. 

Cette chaîne de caractères représente {а spécification d'un fichier dans te 

style DEC i.e. : 

«dev»:«filename», «ext» [«prg», «pr j>] ««pro»» 


ex : "DSK:iFILE. TXTILIS, JER] «055»" correspond à 
(DSK (FILE . TXT) (LIS . JER) 1055) 
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La Sélection Des Fichiers D'entrée/sortie 


l’état actuel du système, 10 peut gérer simultanément 
fichier d'entrée 

fichier de sortie 

fichier Library 

fichier auxiliaire 

terminal 


Un système multi-fichiers est en cours de réalisation. 


(INPUT «file») [SUBR à 1 argument] 


cette fonction permet de sélecter le fichier d'entrée «file», aprés avoir 
fermé Le fichier d'entrée précédent. А l'ouverture d'un fichier TTY, із 
message --- ALLO ? --- est imprimé sur cette TTY, un ? est imprimé au 
début de chaque Ligne et un petit Pretty-print est activé; ес 
Pretty-print, qui tient compte du nombre de parenthèses поп encore 
refermées, effectue des  indentations automatiques en début de chaque 
Ligne. Un indicateur, le bit 11 du R.G. , est positionné dans ce cas «=` 
peut étre testé pour savoir si le fichier d'entrée est bien un terminal. 


Les erreurs suivantes peuvent apparaitre : 
жж open error (input). 


Le périphérique d'entrée est incorrect (inexistant ou impossible à ouvrir 
en lecture). Le fichier d'entrée standard est ouvert à sa піссе, 


жж Lookup error (input) : <n> 


Le fichier d'entrée est incorrect. Le fichier d'entrée standard est 
utilisé à sa place. «n» est le type de l'erreur. Parmi les plus 
fréquentes signalons : 

0 іе fichier n'existe pas 

1 le «ppn» est incorrect 

2 le fichier est trop protégé 

6 erreur physique de lecture 


(EOF) [SUBR à 0 argument] {pour End Of File} 


cette fonction est automatiquement lancée par le système à La fin du ` 
fichier d'entrée. EOF peut être également lancé per !''uii.ils.'cu^ pour 
PEE artificiellement des fins de fichiers еп tecture (іс — "SIGN 
OF;" cher aux PLlistes). D'une manière standard EOF imprime Le messene 
d'avertissement жж E.0.F puis re-ouvre le fichier standerd а’ епі es. 
Toutefois si une S-expression était en cours de lecture (non terminée) .. 
message devient жж Е.О.Ғ. during READ. Ce message indique en че... 
qu'il manque des parenthèses  fermantes à la fin du fichier. EOF peut 
bien évidemment être redéfinie sous forme d'une EXPR pour gérer soi-même 
les fins de fichiers. 


L'action standard de cette fonction peut être décrite en MUA : 


(DE EOF O 
(PRINT °жжЕ.0.Р) 
(INPUT)) 


Si cette fonction est redéfinie par l'utilisateur. eile cois compo: c^ 
explicitement une ouverture d'un fichier d'entrée (au moyen de 
fonction INPUT) sous peine de déclencher une erreur moniteur : 


те 
r: 
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(OUTPUT «file»? ISUBR à 1 argument] 


sélecte le nouveau fichier de sortie «file» après avoir fermé le fichier 
de sortie précédent. 


Les erreurs suivantes peuvent apparaitre : 
жж open error (output). 


Le périphérique de sortie est incorrect (inexistant ou impossible à 
ouvrir en écriture). Le fichier de sortie standard est ouvert à sa 
place. 


жж enter error (output) : «n» 


Le fichier de sortie est incorrect. Le fichier de sortie standard est 
utilisé à sa place. «n» est le type de l'erreur. Parmi Les plus 
fréquentes signalons : 
le «ppn» est incorrect 
2 le fichier est trop protégé 
6 erreur physique d'écriture 
14 il n'y a plus de place sur Le disque 


(FILOP «i» <filel> <file2>) ISUBR à 3 arguments] 
ípour FILe OPeration) 


рее: de réaliser la plupart des fonctions sur les fichiers (DELETE, 
ENAME, APPEND ...). FILOP utilise la nouvelle UUO FILOP . <і> est une. 
liste de La forme [no-de-canal no-de-fonctionl,  «filel» est la 
spécification du fichier à utiliser, «file2» est la spécification d'une 
deuxième fichier qui n'est utilisé que pour la fonction RENAME. L'emploi ` 
| б cette fonction étant malaisé et parfois dangereux, il est préférable 
. d'utiliser la fonction FILE , présente dans le fichier SYS:VLISP, ІМІ 
(voir l'annexe A), qui assure un contrôle plus sérieux et offre une 
syntaxe plus agréable. | | 


Toutefois pour pouvoir utiliser cette fonction Les renseignements suivant 
sont nécéssaires : | 


numéro des canaux 
1 сапа! d'entrée (INPUT) 
2 canal de sortie (OUTPUT) 
3j canal Library (LIBRARY) 


(ев principaux codes fonction sont : 
lecture d'un fichier 
2 création d'un nouveau fichier 
3 écriture d'un fichier 
6 extension d'un fichier 
7 fermeture d'un fichier 
8 ckeckpoint d'un fichier 
11 changement de nom d'un fichier 
12 destruction d'un fichier 
13 préallocation d'un fichier 
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FILOP ramène NIL en valeur si la fonction sur fichier s'est correctement 

déroulée et ramène Le numéro du code de l'erreur dans le cas contraire. 
Les principaux codes d'erreur sont : 

fichier inexistant 

répertoire incorrect 

protection trop forte 

fichier en cours de modification 

fichier existant 

erreur d'entrée/sortie 


Oo RFGIN-C 


ex : de manipulation de fichiers 


; fonction COPYFILE qui copie entièrement Le fichier 
d'entrée <filin> dans Le fichier de sortie <filout> ; 


(DE COPYFILE (<filin> <filout>) 
(INPUT <filin>) 
(ООТРОТ <filout>) 
(WITH (EOF О (finfich)) 
(ESCLOOP finfich 
(PRINT (READ) ))) 
(OUTPUT) 
(INPUT) 
*VOILA)) 


7.9 Autres Fonctions Sur Les Fichiers 


7.9.1 Lancement D’autres Programmes - 


(RUN «file» <n>) [SUBR à 2 arguments] 
permet de sortir de et de jouer le programme de nom «file». Si Le 
2ème argument «n» est fourni, il fait office de déplacement (offset) pour 


L'adresse de lancement du nouveau programme (si celui-ci a été prévu à 
cet effet). 


ATTENTION : RUN effectue ип aller-simple! 
ex : (RUN '(SYS (E . SHR))) va jouer E 


(RUN '(SYS (E . SHR)) -1) уа jouer E en utilisant Le même 
fichier qu’au dernier appel de E 


(RUN ? (SYS (ADV . EXE))) vous voici à l’aventure 


7.9.2 Fonctions Sur Les <ppn> - 


(GETPPN) ISUBR à 0 argument] 
ramène Le répertoire courant de l'utilisateur. 


ex : (GETPPND CS (LIS . DOO 
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(ALIAS <ррп>) [SUBR à 1 argument] 


permet de changer le nom du répertoire courant de l'utilisateur. St 
aucun argument n'est fourni, le répertoire du LOGIN est utilisé. Cette 
fonction n'est effective que dans la version IRCAM et correspond а La 
comande moniteur .ALIAS ppn . 


ex : (СЕТРРМ) ES (LIS. P) 
(ALIAS ° (LIS . 0002 к> (15. DOC) 
(СЕТРРМ) e (LIS. DOO 
(ALIAS) E (LIS . P) 


(DIRECTORY <ppn> <і>) [SUBR à 2 arguments] 


ramène la Liste de tous les fichiers du répertoire «ppn». Cette fonction 
est utilisée pour s'assurer de la présence de fichier en restant sous 
MLISP. Le deuxième argument <і> sert à préciser {е filtre ("wild-card") à 
utiliser pour isoler un ensemble de fichiers dont on précise іе nom et/ou 
l'extension. Ces filtres permettent, dans le cas où l'on précise un nom 
et une extension, d'isoler un fichier unique ; DIRECTORY peut donc être 
utilisé pour tester la présence d'un fichier dans un répertoire. 


Pour tester si le fichier (Ғ00. VLI) existe dans le répertoire (1. 4), 
LU suffit d'évaluer : 

(DIRECTORY '(1. 4) '(FOO . VLI)) 
qui ramènera (РОО . VLI) ou NIL. 


ex : (DIRECTORY) ұғ” «(РОО . ҮШІ) (FOO . LST) (F002 . YLI)) 
(DIRECTORY O '( О. VLDO r» ((F00 . VLI) (F002 . VLI)) 
(DIRECTORY О " (F00)) ЕР? ((FOO . VLI) (РОО . LST)) 


(SHOMIT «n») [SUBR à 1 argument] 


permet d'afficher sur (а Зете "who line" des écrans еп DM mode dans le 
systéme ІНСАМ, tous les renseignements relatifs au fichier ouvert sur le 
Canal «n». Ce numéro de canal vaut 1 pour Le fichier d'entrée, 2 pour le 
fichier de sortie et 3 pour le fichier Library. 


, 


7.9.3 Les Fichiers TMPCOR - 


11 est possible d'utiliser les fichiers TMPCOR sous М9. La seule fonction 
disponible actuellement est la lecture d'un tet fichier. 


(TMPCOR <at>) ISUBR à 1 argument] 


ramène La chaîne de caractères correspondant au fichier  TMPCOR de rom 
«at». Si un tel fichier n'existe pas, TMPCOR ramène NIL. Cette fonction 
est еп outre utilisée pour récupérer Le TMPCOR des éditeurs pour 
connaître le dernier fichier édité, ou par la suite pour créer de 
nouveaux TMPCOR pour WLISP| ou pour les autres programmes systèmes, 


Le nom des éditeurs à L’IRCAM est 


ED pour ETV 
EDS pour TECO 
VLI pour VLISP 


on peut donc Lire Le TMPCOR de ЕТУ per l'appel : 
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7.9.4 Les Fichiers Image-mémoire - 


Deux nouvelles fonctions ont été crées pour pouvoir sauver l’image 
mémoire de votre zone de travail sur disque. Ces deux nouveliss 
fonctions deviendront par la suite inutiles à la mise еп service de (а 
nouvelle UUO IRCAM SWAP. 
Il existe actuellement une autre méthode qui permet Је stocker une image 
de tout l’interprète sur disque (voir les "démarrages à chaud" dans Le 
chapitre suivant). 
Pour ces deux fonctions, si vous ne précisez pas de fichier, 

(DSK (TEMPOR . COD O). | | 
sera utilisé par défaut. 


(HRCORE <file>) ISUBR à 1 argument] 


écrit dans Le fichier spécifié «file» votre image memoire. Cette 
fonction aprés exécution retourne au top-level de MISE, 


(RDCORE <file>) ISUBR à 1 argument] 


restaure votre image mémoire à partir du fichier spécifié. Comme WRCOP= 
cette fonction retourne aprés exécution au top-level de (VLISP. 

ATTENTION : L’interprète qui exécute cette fonction doit avoir La même 
configuration que l’interprète qui a crée ce fichier. 
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L'interpréte se trouve dans le segment haut (HIGHSEG) de іа mémotre. Sa 
taille actuelle est de 8 k (environ). Il est partageable et réentrant. Les 
vertus d'une telle organisation sont multiples, elle permet entre autre de 
n'avoir qu'une copie de l'interprète en mémoire dans le cas де plusieurs 
utilisateurs et d'accélerer Les swapping du système qui, dans la mesure du 
possible, laissera la partie haute de l'interprète en mémoire. 


8.1 Le Découpage De La Mémoire 


La mémoire est divisée en zones fixes (dont tes tailles peuvent être changées 
à l'initialisation du système). Il y a 8 zones dans le segment bas (LOLISEG) 
et une zone dans le segment haut (HIGHSEG). | | 


Zone 0 du segment bas : 


cette zone contient Les mémoires de travail de L’ interprète (buffers, zones de 
sSauvetages diverses ...) ainsi que certaines fonctions flottantes. Le taille 
de cette zone varie entre 1 et 2 k en fonction du nombre de fonctions 
flottantes chargées. бок o | | | | 


Zone 1 du segment bas : 


c'est dans cette zone que sont stockés les atomes litéraux a raison de b m tz 
per atome. La taille standard de cette zone permet de contenir 600 atomes. 
Il existe environ 400 atomes prédéfinis dans le système (les constantes et (55 
fonctions standard), chaque utilisateur peut donc disposer d’environ 200 
atomes Litéraux pour ses besoins propres. 


Zone 2 du segment bas : 


c'est dans cette zone que sont stockés les nombres. Il existe 3 cetecorlo.. 
nombres. | 

а) Les nombres entiers qui possèdent une représentation unique et sont stockés 
sur ип seul mot (d’une manière standard tous les nombres compris entre -64 et 
+127 sont de ce type). | 

b) Les nombres entiers qui peuvent avoir plusieurs représentations simultanées 
et qui sont stockés sur 2 mots. 

с) Les nombres flottants qui peuvent avoir également plusieurs représentations 
simultanées et qui sont stockés sur 2 mots. 

La taille standard de cette zone permet de stocker jusqu'à 1000 nombres de 
n'importe quel type. 


http://www.artinfo-musinfo.org VLISP 10.3 Manuel de référence, août 1978, page 109 / 224 


Page 108 10 . 3 Manuel de Référence 


men: 


Zone 3 du segment bas : 


Cette zone contient les pointeurs de chaînes. Chacun de ces pointeurs utilise 
1 mot mémoire. La taille standard de cette zone permet de stocker jusqu'à 100 
pointeurs de chaínes. 


Zone 4 du segment bas : 


Cette zone contient les doublets de Liste stockés à raison dl mot par 
doublet. La taille standard de cette zone permet de stocker 8000 doublets de 
Liste. 


Zone 5 du segment bas : 


Cette zone contient la pile de l'interprète et a une taille standard de 1200 
mots. 


Zone 6 du segment bas : 


c'est dans cette zone que sont stockés la pile utilisateur et les tableaux. 
Un élément de pile ou un élément de tableau occupe 1 mot mémoire. La taille 
standard de cette zone est de 500 mots. | 


Zone 7 du segment bas : 


c'est dans cette zone qu'est chargé Le code résultant du LAP ou du 
compilateur. ба taille standard est de 200 mots. 


Zone du segment haut : 


Cette zone, BE par plusieurs utilisateurs, contient L’interprète 
lui-même. a taille actuelle se situe aux alentours de 8 К et n'est bien 
évidement pas configurable. | 


8.2 Le Garbage-Collecting 


Chacune de ces zones est allouée d'une manière spécifique. Lorsque l'une de 
ces zones vient à saturation, une machinerie connue sous le nom de 
Garbage-Collecting (G.C.) est invoquée, pour récupérer la place perdue. 
Chaque zone са ба un dispositif de récupération qui lui est propre. бі cet 
essai s'avàre infructueux (la zone ayant provoquée le G.C. reste saturée) un 
message d'erreur est imprimé. Се type d'erreur est fatal ; il y a donc 
retour immédiat au top-level. IL faut recommencer le travail en augmentant (а 
taille de la zone incriminée eu moyen de la fonction CONFIGURATION. 
Si vous interrompez l'interpréte (en tapant un 1C ) durant un G.C., le message 
suivant apparait : | 

G.C. ^ TYPE .CONT PLEASE. | | | | й 
vous devez émettre ia commande .CONT pour terminer Le G.C. puis reinterrompre 
L’ interprète. Si vous relancez l’interprète (par la commande .REE) qui n’a 
pas terminé ип G.C., vous le placez dans un état de confusion épouvantab le. 


Quand Le système commence à exécuter un G.C. il positionne un indicateur, (е ` 
bit 35 du R.G. . Cet indicateur est remis à 0 en fin de G.C. 


Messages relatifs au remplissage d'une zone mémoire. 
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ЖЖ по room for atoms. remplissage de La zone atome. 

ЖЖ по room for numbers. remplissage de La zone nombre. 

ЖЖ no room for strings. remplissage de la zone chaîne. 

ЖЖ no room for lists. remplissage de (а zone Liste. 

ЖЖ no room for arrays. remplissage de la zone tebleau. 

ЖЖ no room for code. remplissage de (а zone code. 

ГІ est possible d'avoir des statistiques à chaque "Gerbage-Cotllecting" en 
positionnant le bit 5 du R.G. (plus précisement en évaluant (а forme (STATUS 
1 5) ). Aprés chaque "Garbage-Collecting", le texte Sulvant sera imprimé : 


кжжж G.C. Мо ; хх 
G.C. Count t xx 
ALTERED CELLS t хх. .. 
Lists Size : хххх marked : xxxx freed : xxxx 
Strings Size : хххх marked : xxxx freed : xxxx 
Numbers . Size t xxxx marked.: xxxx freed : xxxx 
Atoms Size t xxxx marked : хххх freed : хххх 
Code Size : xxxx marked : xxxx freed : xxxx 
Elapsed time t хххх milli-sec. 


Average time іп G.C. : xx X 


Ces statistiques permettent de connattre : 
- le numéro du arbage-collecting (le nombre de G.C. effectués depuis 16 
Lancement de А | 
- le compte actuel de G.C. (utilisé par le fonction (STATUS 23) ) 
- le nombre de doublets de listes irrécupérables. бі ce nombre n'est pas égal 
à 0, les G.C. suivant ne seront pas garantis ... IL vaut mieux recharger un 
nouvel interpréte ... 
- 2 nombre total d'atomes, utilisés et Libres. 

e nombre total de nombres, utilisés et Libres. 
- le nombre total de chaînes, utilisées et Libres. 
- l'occupation de la zone code. 
- {е temps qu'a duré ce G.C. en millisecondes. T PME 
- le pourcentage de temps passé uniquement dans le G.C. Par rapport au temps 
d’utilisation total de L’ interprète. SM 


Dans (а version I.R.C.A.M. de MI 10, ип résumé de ces stetistiques est 
systématiquement affiché sur la Запе “who Line" des écrens fonctionnant en DM 
mode. Cette action est validée par le bit 6 du R.G. qui par défaut est 
pos Lt ¿onné. 

La forme de ce résumé est : 

00 XX # хх X xxxx | xxxx at 

et contient Les renseignements suivants (dans l’ordre) | 

~ le numero du G.C. (le nombre de G.C. effectués depuis le lancement de 


- le pourcentage de temps passé uniquement dans (е G.C. par rapport au temps 
d'utilisation total de L* interpréte. 

- le nombre de doublets Libres. 

- le nombre d'atomes Libres. 


Certains STATUS permettent de contrôler Le fonctionnement du G.C. 


(STATUS 21) 


Lance un G.C. et ramène en valeur Le nombre de doublets libérés. 


http://www.artinfo-musinfo.org VLISP 10.3 Manuel de référence, août 1978, page 111 / 224 


Page 110 — 10 . 3 Manuel de Référence | 


(STATUS 22) 
ramène іе nombre de doublets Libres (mais sans lancer de б.С.). 


(STATUS 23 «n») 


donne une valeur «n» au nombre de G.C. que l'interprète pourra effectuer 
avant de provoquer une erreur dont le Libellé est : 
жж ER G.C. STEP DONE. 


(STATUS 24 «n») 


donne un nombre minimum «n» de doublets récupérables à chaque G.C. бі ce 


nombre n'est pas atteint, il y a impression du message d'evertissement 
- . suivant : | nn 


жж LEFT cells : «n 
ой «n» est Le nombre de doublets réellement récupérés. 


8.3 Les Changements De Configuration 


11 est possible, en début de travail, de changer (а taille des zones standard. 
La fonction CONFIGURATION exécute се travail. Cette fonction, si elle est 
utilisée, doit être іа PREMIERE et DERNIERE forme à évaluer sur (е fichier 
initial CONFIG. INI . | | 


(CONF IGURATION init in out atoms nbs strgs lists stack erray code) 
[SUBR à 10 arguments] м 


cette fonction possède 10 arguments qui sont dans l’ordre : 
init : spécification du nouveau fichier initial ` 
t spécification du fichier standard d'entrée 
: spécification du fichier standard de sortie 
: nombre total d'atomes. | | 
: nombre total de nombres. 
Strgs : nombre total de chaînes. 
s nombre total de doublets. 
i taille de la pile de l'interpréte. 
: taille de La zone des tableaux. 
s taille de la zone de stockage du code. 


OO OO 
i D 
o 


Ces arguments doivent être donnés DANS L’ORDRE . Le ler argument est 
о мое et ne doit pas être ° (DSK (CONFIG . ІМІ)) sous peine de faire 
bouclier L’interprète durant іе prélude. Si оп ne désire pas modifier Le 
taille d’une zone, l’ergument à fournir est NIL. S’il n'est pas possible 
d'allouer La mémoire demandée, ів message suivant est imprimé : 

. Жж not enough core. ` MEN 

et la configuration n'est pas modifiée. 


exemples d'utilisation de la fonction de configuration. 
4 définition de La configuration standard ; 
і cette configuration occupe : 
- 18 k еп LOWSEG 
- B k en HIGSEG 
soit 26 k au total  ; 


(CONF IGURAT TON 
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'(SYS (VLISP . INI» fichier initial ; 


$ 
* (TTY CYLISP . WI) s fichier d'entrée TTY ; 
'(TTY (VLISP . LST)) + fichier de sortie TTY ; 
600 ; atomes Litéraux ; 
1000 ; nombres; 
100 ; chaînes ; 
8000 t Listes ; 
1200 $ pite système ; 
500 ; tableaux ; 
200 ; code ; 


00» 


$ définition d'une petite configuration batch ; 
; cette configuration occupe : 

- 12 k en LOUSEG 

- 8 k en HIGSEG 
soit 20 К au total ; 


(CONFIGURATION 
| ? (SYS (VLISP . INI)) 


| t fichier initial ; | 

* (DSK (VLISP . VLI)) s fichier disque d'entrée ; 
*(DSK (VLISP . LST)) 3 fichier disque de sortie ; 
500 .$ 100 atomes utilisateur ; 
500 500 nombres ; 
50 $ 50 chatnes ; 
4000 ; 4000 doublets de Liste ; 
1000 $ pile de t'interpréte ; 

р į pas de tableaux ; 

| % 


pas de code ; ` 


))) 


B,4 Lancement Пе |” interprète 


L’ interprète 10.3 se trouve dans іа zone système. Pour Lutte al 
suffit d'émettre La commande : | 
‚В VLISP ou bien .VLISP 
SL l'erreur ?VLISP.SAV not found apparait, l’interprète ne se trouvait pes sur 
le disque systéme et il n'y a plus rien à faire. | TN 
Avant de commencer Le dialogue sur les fichiers standards d'entrée-sortie, ie 
fichier initial CONFIG. INI est chargé, s'il existe dans Le partition de 
l'utilisateur. S'it n'existe pas le message жж LOOKUP ERROR (INPUT) : D хз. 
lmprimé, et (е fichier standard d'entrée est ouvert. бе fiche: ііі сө” 
contenir une reconfiguration des zones de i'interprete cu dap de ‘cotes cc 
fonctions préalables à un travail donné ou bien encore una définition de 
travaux à exécuter en "batch". | 
Il existe un fichier d'initialisation standard de nom (SYS (VLISP . INI qui 
contient (а définition de macro-caractères, de fonctions synonymes, de 
fonctions autoloads, de fonctions utilisant des fichiers, des traps erreurs 
... Се fichier a (е bon goût de Lire aprés son chargement Le fichier 
VLISP.INI qui se trouve sur votre partition. 
Une pratique utile est de mettre à la fin de ce nouveau fichier, les commandes 
pour charger Le dernier . fichier manipulé par L'éditeur ЕТУ ou TECO mais 
uniquement si ce fichier possède une extension .VLI). 


L'ordre de chargement de ces fichiers est donc : 


1) chargement s’il existe du fichier (DSK (CONFIG . ІМІ)) qui se trouve sur 
votre partition. | 
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2) si Le ler argument de la fonction CONFIGURATION du fichier précédent est 
(SYS (VLISP . INI)) , chargement de ce fichier 


3) si le 2) а été chargé, chargement du fichier (DSK (VLISP . IND) qui se 
trouve sur votre partition. 


4) si (е 3) a été prévu à cet effet, chargement du dernier fichier manipulé 
par L'éditeur si celui-ci posséde une extension .VLI. 


L'appendice А contient Le Listages des 3 fichiers : 


- CONFIG. INI (1) standard (qui permet de tire (2)) 
~ SYS: VLISP. INI (2) Le fichier d' initialisation standard du système 
= VLISP.INI (3) un fichier d'initialisation utilisateur 


qui permet de charger (е dernier fichier modifié 


Dans {а version IRCAM de U’ interpréte une possibilité de passage entre 
1” interprète et l'éditeur ЕТУ est disponible : 


pour passer de VLISP à l’éditeur 11 suffit d' invoquer 
( (SYS (E. SHR)) -1) 
pour accéder immédiatement au dernier fichier édité (c'est donc l'équivalent 
de la comande moniteur .ETV sans argument). 
11 existe dans le fichier standard SYS:VLISP.INI La définition | d'un 
vida id dia (le CONTROL-E) qui permet d’eppeller l'éditeur. Il est 
ini : 
(DMC é О «RUN (SYS (E, SHR)) -1)) 


pour passer de l'éditeur à VLISP, une nouvelle commande y a été ajoutée, la 
commande étendue : [EDIT] X VLISP (qui peut être abrégée [EDIT] X VL) Cette 
commande permet de rentrer dans l’interprète en positionnant Le bit 29 du В.б. 
qui indique que l'on arrive directement de l'éditeur ЕТУ. Cet indicateur est 
par (а suite testé pour savoir s'il faut charger automatiquement (в dernier 
fichier modifié par l'éditeur. | | 


8.5 La Boucle TOPLEVEL 


Une fois ce prélude terminé, |” interprète rentre dans Le boucle principale qui 
consiste à évaluer indéfiniment (а forme : 

с (НИЕ T CTOPLEVEL)) 

. C'est donc {а fonction TOPLEVEL qui détermine Le mode de fonctionnement de 
l’ interprète. Cette fonction (de type SUBRA) est bien évidemment 
redéfinissable par l’utilisateur qui désire se construire son propre système. 


(TOPLEVEL) [SUBR à 0 argument] 


Cette fonction va, d’une manière standard, : 0 иН 
- lire une S-expression sur le fichier d'entrée courant | 
~ ві le bit 2 du R.G. est positionné (ce qui est l'option per défaut), 
imprimer cette S-expression |20200 "P SCH o 

~ évaluer cette S-expression et stocker le résultat de cette évaluation 
dens L'atome IT | | 
- $i le bit 1 du R.G. est positionné (ce qui est l'option par défaut), 
imprimer le résultat de cette évaluation 

~ si le bit 0 du В.б, est positionné (ce qui est l'option par défaut), 
imprimer le temps qu'a duré cette évaluation. La fréquence de l’hor toge 
du РОР 10 étant de 50 Hz, les durées de 0 et de 20 ms ne sont pes 
significatives. 
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Le trait IT permet, en mode conversationnel, d'effectuer des calculs à la 
aix i t 


- 4 
? (ж it 2) 
8 


? Ck it it) 
= 64 


TOPLEVEL pourrait se définir en МІ de (а manière suivante : 


(DE TOPLEVEL ( ;; lu evtime) 
(SETQ tu (READO ` 
(IF (STATUS 4 2) (PRINT tu») 
(SETQ evtime (RUNTIME?) | 
(SETQ IT (EYAL Uu)... M 
(SETQ evtime (DIFFER (RUNTIME) evt ime)) 
(IF (STATUS A 1) (PRINT IT)) | 
CIF (STATUS 4 0) (PRINT "; time =" evtime " ms. ;"))) 


ATTENTION : une redéfinition de cette fonction, qui n'évalue раз des 
formes lues, rend Le système inutilisable. 


exemple de définition à éviter : 


(DE TOPLEVEL О (READ) (PRINT "MARRE)) 


8.6 Les Démarrages à Chaud 


11 est possible de sauver à tout moment une image de l’interprète et de sa 
zone de travail enz | "P I "M 
- арап. L’ interprète еи moyen d’un ФС quand celui-ci se trouve eu 
hiveau du TOP-LEVEL, | 
~ өп émettant {а commande : 
«М5АУ nnnnn ххК | 
ul sauve une image de la mémoire dans un fichier disque de nom nnnnn өз 


'extension par défaut .EXE , (а mémoire sauvée a pour taille maximum xxK. 


Le fichier ainsi créé peut être appellé de La même manière qu’un programme 
normal i.e. au moyen de La commande moniteur .RUN . Feu I | 
Ce programme contient L’interprète VLISP| dans l’état où il se trouvait au 
moment de l'interruption; en particulier la taille des zones standard, toutes 
les définitions des fonctions ainsi que toutes les valeurs des variables sont 
conservées. | 

Ces fichiers sont utilisés pour effectuer des mises au point ou bien pour 
garder des versions prêtes (et en général compilées) de programmes utilisés 
fréquemment. 


Attention : Les fichiers ainsi créés sont très gros ; de l'ordre d'une ou de 
plusieurs centaines de blocs disques. 


Lors du "démarrage à chaud", quand on relance быел үа la fonction 
HOT.START est utilisée en Lieu et place de La fonction TOPLEVEL dens la boucle 
principale tant qu'un indicateur reste positionné. 
Le système utilise le bit 34 du R.G. comme indicateur. Pour repassser en 
mode normal (TOPLEVEL) La fonction HOT.START doit donc remettre à 0 cet 
indicateur en évaluant (STATUS 2 34). 
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(HOT.START) [SUBR à 0 argument] 


d'une manière standard cette fonction enlève Le bit 34 du R.G. our 
пе asser en mode normal (TOPLEVEL) et ramène toujours le valeur NIL. 
OT.START peut être redéfinie pour créer des systèmes personnels qui au 
moment du démarrage à chaud rentrent automatiquement dans une boucle 
principale non-standard. | 


ex: — 


? (DE HOT.START О 
? (PRINT " Sa repart ...") 
? 2 34)) 


(STATUS 
? ^C eu niveau TOP-LEVEL, appel du moniteur. 
à AVE XLISP 50К sauvetage de L’ image mémoire de nom | 
LISP saved XLISP.EXE | 
„ВШМ XLISP | re-appel de l'image mémoire 
--- ALLO ? --- 


Nä ça repart ..." exécution de (а fontion НОТ.5ТАНТ 
оп se retrouve au niveau 
TOP-LEVEL précédemment quitté. 
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CHAPITRE 9 


ERREURS ET 
MISE AU POINT 


9.1 Les Erreurs 


It existe trois catégories d’erreurs : 
~ (ев erreurs détectées par Ls moniteur lui-même, qui sont terriblement 
dangereuses car elles mettent en danger l'intégrité de L’ interprète. | 

- les erreurs détectées par l’intreprète et pour lesquelles il y a suspension 
autoritaire du travail après impression d’un message d'erreur (ces erreurs 
sont nommées erreurs fatales). | | 

- lee erreurs détectées par l’interprète mais pour lesquelles des actions 


spécifiques peuvent être ordonnées par l'utilisateur. Ces erreurs sont donc 
des erreurs non-fatales. | 


9.1.1 Les Erreurs Du Moniteur - 


A prion il ne devrait pas y en avoir. Toutefois de mauvaises utilisations du 
LAP ou des fichiers provoquent encore des erreurs du type : ` IE 


?PC OUT OF BOUNDS AT USER PC ххх 
ON-EX | AT USER PC ххх 
МЕМ PAR El AT USER PC xxx 


?ADDRESS CHECK FOR DEVICE y AT USER PC xxx 
210 TO UNASSIGNED CHANNEL АТ USER PC ххх 


Ces erreurs sont catastrophiques car elles retournent au moniteur. Pour 
re-entrer dans ¿L faut émettre une des commandes : | | 

~ .LÜNT pour essayer de continuer le programme à l'endroit où il s'était 
arrêté. Се n'est en général pas possible. 

~ REE pour re-entrer dans i'interpràte au niveau de La boucle TOP-LEVEL, en 
essayant de garder au maximum l'image mémoire. Dans le cas où L’ interprète se 
trouvait dans le Gargage-collecting il devient inutilisable. 

т .START pour utiliser un MI frais. Toutes les définitions antérieures des 
fonctions sont alors détruites. | 
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9.1.2 Les Erreurs Fatales Пе L’ interprète. - 


Ces erreurs détectées par nter réte sont sans appel. IL y a retour 
inconditionnel au niveau du TOPLEVEL après impression des messages. Сез 
messages consistent en : | 

~ le message indiquant le type de l'erreur (parfois accompagné du ou des 
arguments fautifs). Ces messages commencent tous par les caractères жж . 

- le Libellé --- last form : «s» indiquant la dernière forme évaluée avant 
l'apparition de l'erreur. 
- le Libellé --- Last fn : «s» indiquant ta dernière fonction appellée (sous 
sa forme LAMBDA). 

es deux dernières indications servant à repérer (а fonction et l'endroit dans 
(а fonction ой Ll’erreur est apparue. 


9.1.2.1. Erreurs Système Détectées Раг L' interpréte. ~ 


жж ILLEGAL UUO. Mauvaise UUO. Cette erreur apparait en général à іа suite 
d'une mauvaise utilisation du LAP. 


жж ILL REF MEMORY AT USER PC : ххх mauvaise utilisation du CONS ou erreur de 
programmation en LAP. Cette erreur est parfois détectée après des recherches 
sur des objets indéterminés par exemple (CDDDR 9999). 


жж PDL OVERFLOM. La pile de travail de l’interprète est saturée. Cette 


erreur est due en général à une récursion infinie par exemple 
((LAMBDA (X) (SELF Ki (SELF K)) O). 


жж PDL OVERFLOW DURING G.C. La pile de travail de L' interprète a été ТОЕ | 


au cours d'un G.C. Cette erreur oblige à recharger un MIDD frais et fait 
perdre toutes les définitions présentes. 


| ал „1.2.2 Erreurs Dans Le Gestion De La Mémoire - Ces erreurs sont décrites Ka 
ans (е chapitre Organisation et Utilisation. | 


жж NOT ENOUGH CORE il n'y а pes assez de mémoire pour réaliser Le ` 
configuration demandée. 


жж NOT ROOM FOR atoms/array/code/tLists/numbers/strings une des zones de 
stockage est saturée. 


жж ER G.C. STEP DONE compte du GC terminé. 
жж USER STACK UNDERFLOMW mauvaise utilisation de la pile utilisateur. 
жж USER STACK OVERFLOW débordement de la pile utilisateur. 


9.1.2.3 Erreurs D'entrée/sortie - Ces erreurs sont décrites dans le chapitre 
entrées/sorties et fichlers. 


жж OPEN ERROR (INPUT) : «n> erreur à l'ouverture du périphérique d'entrée. 
жж OPEN ERROR (OUTPUT) : <n> erreur à l'ouverture du périphérique de sortie. 
жж LOOKUP ERROR (INPUT) : <n> erreur à l'ouverture du fichier d'entrée. 
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жж ENTER ERROR (OUTPUT) : <n> erreur à l'ouverture du fichier de sortie. 
аж LIBRARY ERROR. il y a plusieurs fichiers LIBRARY. 

жж READ ERROR : <n> erreur de lecture. 

жж READ ERROR (in LIBRARY) : <n> erreur de lecture dans un fichier LIBRARY. 
жж IMPLODE ERROR : «n» erreur dans la fonction IMPLODE. 


9.1.2.4 Erreurs Dans Certaines Fonctions 
жж ARITHMETIC EXCEPTION PC «n» erreur arithmétique. 


жж ARRAY ERROR «a» «n» erreur dans un tableau. 


жж BAD DEFINITION erreur dans Les fonctions DE, ОЕ, DM. 

жж ESCAPE ERROR erreur dans la fonction ESCAPE. 

жж LABEL ERROR «a» erreur dans іа fonction GO ou GOTO. 

жж LESCAPE ERROR erreur dans la fonction LESCAPE. 

** NON NUMERIC ARG : argument erroné dans une action rique. 
жж RETURN ERROR erreur dans le fonction RETURN. | 

xx SELF ERROR erreur dans {а fonction SELF. 

жж STATUS ERROR «n» erreur dans la fonction STATUS. 

жж UNDEFINED FUNCTION (FSUBR) <s> erreur dans La fonction FSUBR. 
жж UNDEFINED FUNCTION (SUBR) «s» erreur dans la fonction SUBR. 


9.1.3 Les Erreurs Non-fatales Пе L’ interprète S 


Durant l’évaluation des formes, à l'apparition de certaines erreurs, 
appelle des fonctions standard. La valeur de ces fonctions devient la valeur 
de la forme ayant provoquée l'erreur. Ces fonctions peuvent être redéfinies 
par l'utilisateur et permettent entre autre i'introduction de dispositifs 
Spéciaux de traitement des erreurs, comme par exemple le dispositif connu sous 
Le nom de PHENARETE (1). Toutes ces erreurs possèdent une grand nombre 
d'arguments (qui permettent toutes les fantaisies possibles au niveau de 
l’interprète lui-même) : | 

e l’atome ou la fonction ayant provoqué l'erreur, | 

- (а valeur du pointeur de la pile de contrôle de l’interprète (son 
utilisation est réservée aux sorciers М.Р) sous la forme d'un nombre. 

- le pointeur dans Lla pile des Liens des blocs lambdas (son utilisation est 
également réservée aux wizards MIS) sous la forme d'un nombre. 

- le pointeur dans la pile des liens des blocs escapes ... 


(1) PHENARETE étant comme chacun sait un système de correction et 


d'amélioration de programmes écrits еп LISP. РНЕМАВЕТЕ a été conçu et réalisé 
par Harald WERTZ. 
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9.1.3.1 Erreur Variable Indéfinie - 


Cette erreur apparait si on tente d'évaluer une variable qui n'a jamais recue 
de valeur. . | 


(ERROR.UBV «at» «ni» «n2» «n3») ISUBR а М arguments] 
(pour ERROR UnBounded Variable) 


«at» est l'atome qui ne possède pes de valeur et «nl» «n2» «n3» sont Les 

pointeurs sur la pile. Cette fonction imprime d'une manière standard : 
жж UNDEFINED VARIABLE : «at» | 

dans lequel «at» est l’atome indéfini puis retourne au TOPLEVEL. 


On peut redéfinir cette fonction de plusieurs manières : 


1 - pour ignorer.complétement ce type d'erreur et affecter 
systématiquement la valeur NIL à ce type de variable : 


(DE ERROR.UBV (A) 
(SET A NIL)) 


2 - pour imprimer un message d'avertissement et affecter 
systématiquement la valeur NIL à ce type de variable : 


(ПЕ ERROR.UBV (A) С 
(PRINT "Variable indéfinie" А "forcée à NIL.") 
(SET A NIL)) | 


З - pour provoquer une erreur fatale : 


(DE ERROR.UBV (А) 

(PRINT "Variable indéfinie" А 
. "qans la fonction" (LASTCALL 2)) 
(RESET?) n 


9.1.3.2 Erreurs Fonction Indéfinie. - 


(ERROR.UDFE «s» <і> «ni» «n2» «n3») [SUBR а М arguments] 
(pour ERROR UnDef ined Function in Eval} 


Cette fonction est appellée automatiquement à L'apparition d'une fonction 

non définie dans іа fonction interprète EVAL. <s> est la fonction 
hon-définie, <і> La dernière forme évaluée et «nli» «n2» «n3» les 
pointeurs de pile. D’une manière standard cette fonction imprime (е 
message : 

жж undefined function (EVAL) : <s> 

dans Lequel Le nom de la fonction incriminée «s» est imprimé puis 
retourne au TOPLEVEL. | 


XERROR.UDFA «s» <і> «nl» «n2» <n3>) [SUBR à N arguments] 
| {pour ERROR UnDefined Function іп Apply) 


. Cette fonction est appellée automatiquement à Жалалы d’une fonction 
non-définie dans la fonction interprète APPLY. <s> est la fonction 
non-définie, <і> {а dernière forme évaluée et «nl» «n2» «n3» les 
pointeurs de pile. Cette erreur n'est pas fréquente car MI 10 
n'utilise pratiquement plus La fonction APPLY hormis dans (85 
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fonctionnelles. D'une maniére standard cette fonction imprime Le 
message : | 


жж undefined function (APPLY) : <s> 


dens lequel Le nom de (а fonction incriminée «s» est imprimé puis 
retourne au TOPLEVEL. 


Exemple de redéfinition de ces fonctions d'erreurs : 
(DE ERROR.UDFE (fonction forme pile p$bind) 

$& Undefined function EVAL ; 

(ERROR. UDF "Fonction indéfinie dans EVAL : ")) 


(DE ERROR.UDFA (fonction forme pile p$bind) 
y Undefined function APPLY ; 
(ERROR.UDF "Fonction indéfinie dans APPLY : ")) 


(DE ERROR.UDF (msg? 
і Fonction générale d'erreur FUNCTION UNDEFINED ; 
(PRINT msg fonction) 
(PRINTLEVEL 6) 
(PRINTLENGTH 10) 
(PRINT "La dernière forme était : " forme) 
(OR (EQ p$bind -1) 
(PRINT "La dernière FONCTION était : " (LASTCALL 3))) 
(PRINTLEVEL 50) 
(PRINTLENGTH 2000) 
CRESET) ) 


9.1.4 Les Avertissements - 


L’ interprète émet parfois de petits avertissements dont voici la Liste 


succinte (leurs descriptions complètes apparaissent dans les autres- 
chapitres). | 


жж LEFT CELLS «n» avertissement de saturation de la mémoire Liste. 

же E.O.F. Тіп de fichier. 

жж Е.О.Ғ. during READ fin de fichier probablement incorrect. | 

жк E.O.F. durind READ fin de fichier probablement incorrect dans un fichier 


жж ESCAPE.I «n» arrivée d'une interruption de type ESCAPE I, (voir le 
paragraphe suivant). 


9.2 Les Interruptions 


Il existe dans la version IRCAM une interruption soft qui а pour nom ESCAPE. I 
et qui permet d'interrompre l’exécution d'un programme MIS, de lancer une 
autre fonction, et de revenir au programme interrompu. Cette interruption est 
provoquée par l'envoi d'un code spécial par La ТТҮ, [е code ESCAPE-I qui ве 
frappe : NUL puis I au bien NUL puis une suite de digits décimaux puis I. 


А Lope еп d’une interruption de ce type, lance ипе fonction de nom 
ESCAPE.I avec pour arguments : 


1 - Le nombre tapé entre NUL et I (i.e. le numéro du ESCAPE-I) s'il n'y a pas 
de nombre, cet argument vaut 0. 

2 ~ le pointeur de pile lui-même 

3 - le pointeur des blocs lambda dans le pile (PSBIND) 
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Ces arguments permettent toutes les manipulations au niveau de la pile (en 


particulier les restaurations de contextes) de (а même manière que les erreurs 
non-fatales М9. 


Cette fonction d'une facon standard imprime le Libellé : 
жж ESCAPE-I : «n» 


dans lequel «n» est іе numéro du ESCAPE.I puis retourne au programme 
interrompu. 


It est tout-à-fait possible de redéfinir cette fonction pour gérer soi-même ce 
type d'interruption, de méme qu'il est tout à fait possible d'appeller cette 
fonction au moyen de la forme (ESCAPE.I п) ce qui permet de déclencher cette 
interruption par programme. 


Exemples d'utilisation de cette interruption : 


% le fonctionnement minimum consiste еп : ; 


(DE ESCAPE.I (М) 
(INTERRUPT "Merci...") 


(DE TESTINT O 
(ESCAPE INTERRUPT 
(PRINT rer S.v.p. E 
(WHILE Т)... en attendant 1717... ; ))) 


; On utilise donc cette interruption ; 


t pour appeller des fonctions d'échappement ; 
(DE ESCAPE. IO (TERMIN ... valeur à retourner ... )) 


et dans une fonction : ; 
(ESCAPE TER TERMIN 


» ` 
ç endroit où l’on veut recevoir une valeur et revenir ; 
; à l'occurence d'une interruption ESCAPE.I ; 


; IL est également possible de fabriquer un BREAK dynamique ; 
(DE ESCAPE. 1 (numero pile p$bind) 
(TERPRI) 


(PRINT "Je rentre dans un TOPLEVEL ESCAPE-I.") 


(PRINT "Pour en sortir, commence une Ligne par «META-ESPACE». ") 
SAS 11 4!) 


(TEREAD) 

(UNTIL (EQ (PEEKCH) */ ) 
(PRINT (EVAL (CREAD) ))) 

(STATUS 11 '/?) 

(PRINT "Ca route...")) 
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8.3 Les Traces 


Une des techniques les plus usuel Les de mise au point de programmes 


le "traçage" des fonctions. "Tracer" une fonction consiste à faire imprimer, 

Le de celle-ci et après évaluation de ses arguments, le symbole 
Suivi de son nom ainsi que la valeur de ses arguments, et au retour de {а 
fonction à faire imprimer Le symbole <--- suivi de son nom ainsi que la valeur 
retournée. Сез traces permettent de visualiser les appels dynamiques des 


à L’entr 


fonctions. 


9.3.1 Trace Des Fonctions De L’ interprète - 


It est possible de tracer certaines fonctions internes de l’interprète en 


posltionnant des bits du R.G. : ` 


bit 3 du R.G. 


sl ce bit est positionné (ce qui n'est pas le cas par défaut), trace tous 
les appels internes de la fonction EVAL. Cette fonction qui est utilisée 


pour chaque évaluation produit des traces fort longues et est en 


utilisée pour mettre au point l'interprète lui-même ou pour fonctionner 


en Rode pas-à-pas. 


bit 4 du R.G. 


si ce bit est positionné (ce qui n'est pas le cas par défaut), trace tous 
les appels internes de la fonction APPLY. Cette fonction est très peu 
gu eee par l’interprète car, өп М е, c'est EVAL qui traite 


-express ions. | 
бх: sl le bit З est positionné, L'évaluation de : 
(PROGN | | 
аха. 
(SETQ Y (ADD1 X))) 


produire la trace : 


---> EVAL : (PROGN (SETQ X 4) (SETQ Y (ADDI X))) 
---> EVAL : (SETQ X 4) 

> EVAL : 4 

<--- EVAL : 4 

<--- EVAL ; 4 

=--> EVAL : (SETQ Y (ADD1 X)) 
---> EVAL : (А001 X) 

=--> EYAL. : X 

<--- EVAL : 4 

<--- EVAL : 5 

<--- EVAL ; 5 

<--- EVAL + 5 
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9.3.2 Trace Automat ique Des Fonctions Standard - 


11 est égatement possible de tracer automatiquement n'importe quelle fonction 
standard (de type SUBR ou FSUBR) au moyen d'appels à des fonctions STATUS. 


(STATUS 28 «at») [SUBR à N arguments] 


trace іа fonction standard de nom «at». бі «at» n'est pas un atome 
Littéral, t'erreur STATUS se déclenche. 


(STATUS 29 «at») [SUBR à N arguments) 


enlève іа trace de La fonction standard de nom «at». Si «at» n'est pas 
un atome littéral, (l'erreur STATUS se déclenche. | | 


Ces deux fonctions sont en général utilisées pour tester les fonctions 
standard elles-mámes. 


9.3.3 Trace Manuelle Des Fonctions Standard - 


1! est possible de redéfinir sous forme de EXPR ои de FEXPR (ев fonctions 

standard et d'avoir simultanément accès à une version interprétée et à une ` 

version codée d'une méme fonction standard. L'appel de la version interprétée 

ве fera normalement au moyen du nom de la fonction tendis que l'appel de Le 

ого созе se fera au moyen des fonctions SUBR ou PSUBR (voir ces 
onctions). ` Е 


Les traces de се type sont beaucoup plus souples que (вв traces automatiques 


et permettent de filtrer commodément les configurations intéressantes.  . 


ex : tracer tous les appels de (а fonction ASSQ 
qui s'effectuent à l'intérieur de la fonction РОЗ 
et qui utilisent une Á-Liste de nom ЕМУ 


(DE ASSQ (a al) | 
(IF (AND (БОР (LASTCALL 2) (GET "РОО EXPR) 
, (EQ at 'ENVD ` | | 
(PRINT "Recherche sur ENV dans РОО" 
a al *= (SUBR 'ASSQ [a all)) 
E a 'ASSQ [a all))) 


(SETQ ЕМУ ' «(A . 1) «8. 2) ALST "CO, 9)); 
E СХ. 9)) 


(ASSQ °X А57) pr 9 
(ПЕ РОО OO (ASSQ X 'ENV)) C РОО 


(FOO "Ai 
di sur ЕМУ dans FOO" А СА. 1) (В . 22 = 1 
ES 


http://www.artinfo-musinfo.org VLISP 10.3 Manuel de référence, août 1978, page 124 / 224 


RCE 10 . 3 Manuel de Référence Page 123 
oo 


9.3.4 Trace Général isée - 


Les fonctions qui vont être décrite permettent de tracer n'importe quel type 
de fonction (SUBR FSUBR EXPR FEXPR MACRO MACIN MACOUT ARRAY). Elles sont de 
type AUTOLDAD (i.e. il n'est pas besoin de charger Le fichier qui {ев 
contient, le système le fera pour vous automatiquement au premier appel de 
l’une de ces fonctions). 
D'erdinaire ces fonctions se trouvent dans le fichier : 

(SYS (DEBUG . VLI)) dans leurs versions interprétées 
Ce fichier est donné en Appendice C. 


(TRACE «ati» ... <atN>) (FEXPRI 


indique qu'il faut tracer Les différentes fonctions de nom «ati» ... 
<atN>. Si L'un de ces atomes n'est pas une fonction de type SUBR, FSUBR, 
EXPR, FEXPR, MACRO, MACIN, MACOUT ou ARRAY..le. message d'avertissament 
suivant apparait t: | 
eg TRACE : c'est quoi «at» 

dans lequel «at» est le nom de l'atome incriminé, Si La fonction est de 
type EXPR, FEXPR, MACRO, MACIN ou MACOUT alors un nombre est imprimé à 
gauche des flèches «--- et ---» : ¿L indique la profondeur d'appel 
récursive de la fonction tracée. En plus du traçage, cette fonct ion 


permet donc d'étudier les appels dynamiques d'une fonction donnée. TRACE. 


caméne en valeur la Liste des fonctions ectueliement tracées. 


(UNTRACE <atl> ... <atN>) ІҒЕХРВ1 


enlève la trace des différentes fonctions de nom «atl» ... <atN>. Si 
aucun nom n’est fourni (i.e. si on évalue (UNTRACE) ), UNTRACE enlève La 
trace de toutes les fonctions EE tracées. Si ип atome n'est pas 
une fonction de type SUBR, FSUBR, EXPR, FEXPR, MACRO, МАСІМ, MACOUT ou 
. ARRAY Le message d'avertissement apparait : e 

WX UNTRACE : c'est quoi <at> NEM 
dens lequel «at» est le nom de l'atome incriminé. ОМТВАСЕ ramène өп 
valeur ia liste des fonctions dont on vient d'enlever la trace. | 


(TRACEFILE <filin>) [EXPR à 1 argument] | 
qu Le fichier <filin> et prépare te traçage de toutes tes définitions 


(de type DE DF DM DMI DMO) qui s'y trouvent. TRACEFILE est utilisée pour 
analyser Les fonctions de tout un fichier et ramène «filin» en valeur. 


(ТВАСЕР <filin>) [FEXPR] 


est une forme abrégée de (а fonction TRACEFILE. L'appel de (CTRACEF 
<file>) correspond à l'appel (TRACEFILE "«fite»), | 


- 9.3.5 Exemple D'utitisation Des Traces - 


; le sacro-sainte fonction FOO ; 


(ПЕ Ғ00 (ND 
m (ZEROP N) 1 (TIMES N (FOO (SUB1 N))))) 


 бізе = 0 ger 
(TRACE FOO GLUCK TIMES) 


` W 8 4-07-40 ә) 
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DEBUG Loaded. 
"жк TRACE : C'est quoi " GLUCK 
« (FOO TIMES 


^) U 
^^ 
“ТІ 
e 
Q e 


1 
---> TIMES : (11) 
«--- TIMES = 1 
З «--- F00 1 
---> TIMES : (2 1) 
<--- TIMES = 2 
2 <--- Ғ00 2 
кетке > Du E. 2) 
equ am 
pu 6 
; time = 140 ms ; 
(UNTRACE) 
(FOO TIMES) 
$£ time = 0 ms ; 
(FOO 3) 
(FOD 3) 


8 
; time = 20 ms ; 


e 


T 


° PNI INNENI 
< 


9.4 Le Pas à Pas 


Exécuter un programme en pas à pas consiste à imprimer chaque forae avant son 

évaluation ai (а fonction EVAL (d'une manière identique à celle obtenue eprès 
(а mise du bit 3 du В.б.), à imprimer ensuite le signal // sur le terminal 
puis à se mettre en lecture d'une commande qui sera exécutée avant évaluation 
de la forme. | | 

Ces commandes servent principalement à sélecter les traces désirées, се qui 
supprime 1” inconvénient majeur de la trace classique : Le taille considérable 
des impressions. 

Cette exécution en pas à pas est obtenue en positionnant simultanément te bit 
3 (de trace) et le bit 8 du R.G. . 


9.4.1 Les Commandes Du Pas à Pas - 


toutes ces commandes sont codées avec une seule lettre et doivent être tapées 
après le code // . 


//» continue le traçage récursif de tous tes objets évalués. 


//< arrête momentanément le traçage, évalue la dernière expression imprimée, 
imprime sa valeur et reprend le traçage normalement. 
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| //. arrête définitivement Le traçage. 
//P reimprime la dernière expression 


//= passe en mode EVAL , i.e. Lit une S-expression, l’évalue, imprime son 
résultat puis repasse en mode pas à pas. 


9.4.2 Les Fonctions Du Pas à Pas - 


Toutes tes fonctions qui vont être décrites sont de type AUTOLOAD i.e. LL 
n’est pas besion de charger Le fichier qui Les contient, le système le fera 
our vous automatiquement au premier appel de l’une de ces fonctions. 
‘ordinaire ces fonctions se trouvent dans le fichier : 
(SYS (DEBUG . VLI)) 
Ce fichier est donné en Appendice C. 


(STEPALL <і>) I[FEXPR] 


si l’indicateur «i» est positionné (si «i» = Т), L’ interprète passe en 
mode pas à pas, si cet indicateur n'est pas positionné (si «i» » NIL) 
L’ interprète repasse en mode normal. | 


(STEP «ati» ... <atN>) ІҒЕХРВ1 


indique de passer en mode pas à pas à l'entrée de chacune des fonctions 
«ati» ... <atN>. Si l’un de ces atomes litéraux n'est pas une fonction 
de type EXPR ou FEXPR, le message d'avertissement apparait : 

жк STEP : C'est quoi «at» m 
dans lequel «at» est Le nom de l'atome incriminé. STEP ramène en valeur 
le Liste des fonctions qu'il faut exécuter еп pas à pas. 


(UNSTEP «ati» ... <atN>) [FEXPR] 


enlève Le passage en mode pas à pas à l'entrée des fonctions «ati» ... 
«atN». . Si aucun nom n'est fourni (i.e. si on évalue (UNSTEP) >, UNSTEP 
enlève tous les passages en pas à pas existants. Si l’un de ces atomes 


L| téraux n'est pas une fonction de type EXPR ou FEXPR, Le message 
d'avertissement apparait : 


жж UNSTEP : C'est quoi «at» 
dans lequel «at» est le nom de l'atome incriminé.  UNSTEP ramène en 
valeur (а liste des fonctions qu'il ne faut plus exécuter en pas à pas. 


9.4.3 Exemples De Pas à Pas - 


s définissons une fonction de test ; 
(DE EK (X Y) 
(COND 


((ATOM X) (EQ X Y)) 

((ATOM Y) NIL) 

(T (АМО «ЕК (CAR X) (CAR Y)) 
(EK (CDR X) (CDR Y)))))) 


g time = D ms ; 


DE ддд 
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| demande de STEP inconditionnel % 
KSTEPALL T) 
шламы .VLI Loaded. 


і time = 620 ms ; 


; Le STEP est maintenant actif ; 
; ler exemple de STEP ; 


=--> EVAL : NIL // > 
<--- EVAL = NIL 
NIL 


; time = 20 ms ; 


? 
5 
? 
2 
? 
? 


; appel sous STEP de іа fonction précédemment définie ; 


(EK * (A (B С) D) "ХА (B C) D>) | 
-=--> EYAL : (ЕК "OO (В C) D "(А (B C) D) // > 
---> EVAL : * (A (BC) D) // > 
<--- EVAL = (A (В С) D) 
---> EVAL : "ХА (B C) D) // > | 
<--- EVAL = (А (В С) D) | 
---> EVAL : (COND (САТОМ X) (EQ X Y)) САТОМ ү) NIL) (T (AND & &))) // Р 
(COND (ХАТОМ X) (EQ X YO) «АТОМ Y) NIL) (Т (АМО «ЕК (САН X) (САВ | 
ү)) «Ек (СОВ X) (CDR Ү))))) // > 
=> EVAL s (АТОМ X) // < 
<--- EVAL = NIL 
“--> EVAL : («АТОМ Y) // < 
<--- EVAL = NIL 
---> EVAL : T // < Б 
<--- EVAL = `1 
---> EVAL : (AND «ЕК (CAR X) (CAR YO) (EK (CDR X) (CDR Y))) // > 
> EVAL : (EK (САҢ X) (CAR Ұ)) // = 


x | 

$ (B C) D) // = 

A BOD //Р 

(EK (CAR X) (CAR Y)) // < 
<--- EVAL = T 
---> EVAL : (EK (CDR X) (CDR OD // > 
---> EVAL : w X) // > 
---> EVAL : // » 
<--- EVAL = (А (В с) D) 


<--- EVAL = (B. C) D) 
-——» EVAL : (CDR Y) // > 


“МӘН 4: 


| C) D) 
=--> EVAL : «COND САТОМ X) (EQ X Y)) «(АТОМ Y) NIL) (Т (AND & &))) // p 
(COND CCATOM X) (EQ X Y)) CCATOM Y) NIL) (Т (АМО (ЕК (САН X) (CAR 
Ү)) «ЕК (CDR X) (CDR Ү))))) //. 


<--- EVAL = T 
<--- EVAL = Т 
<--- EVAL = T 
<--- EVAL = Т 
D EVAL = Т 


г time = 720 ms ; 
b STEP est maintenant inactif ; 


NIL 
; time = 0 ms ; 


8 5 -92-9-98 P 
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9.5 Les Conptages 


Il est souvent utile de connaître combien de fois une fonction a été appellée 
en cours d'exécution d'un programme MIP. En effet c'est aux fonctions 
appel Lées le plus souvent qu'il faut porter le plus grand intérêt au moment de 
l'amélioration (voire de l’optimisation) des programmes. 11 existe des 
fonctions standard qui vont permettre de compter automatiquement із nombre 
d'appels dynamiques de vos fonctions. 
Toutes les fonctions qui vont être décrites sont de type AUTOLOAD i.e. LL 
n'est pas besoin de charger le fichier qui les contient, le système Le fera 
pour vous au premier appel de l’une de ces fonctions. 

"ordinaire ces fonctions se trouvent dans le fichier : 

(SYS (DEBUG . VLI)) 

Ce fichier est donné en Appendice C. 


(COUNT «ati» ... <atN>) IFEXPR] 


indique qu'il faut effectuer un comptage automatique du nombre d'appels 
de chacune des fonctions 
«atl» ... <atN>. Si l’un de ces atomes Litéraux пе possède pas de 
définition de type EXPR ou FEXPR, le message d’avertissement suivant 
apparait : E 

= жж COUNT : C'est quoi «at» | : 
dans lequel Le nom de l’atome incriminé est imprimé. — Cette fonction 
ramène la Liste ( «ati» ... <atN> ) en valeur. 


(UNCOUNT «ati» ...  «atN») [FEXPRI 


provoque i'arrét du comptage automatique des appels des fonctions 
«ati» ... <atN> et imprime (е résultat de ce comptage sous La forme : 
«ati»: n 
^ ее % LW 
<atN> ; n 
dens laquelle les atomes sont triés par ordre alphabétiques. 
UNCOUNT ramène La Liste ( «atl» ... <atN> ) en valeur. 


(COUNTFILE <filin>) [EXPR à 1 argument] 
Lit Le fichier <filin> et prépare le comptage de toutes (ев définitions 


(de type DE DF DM DMI DMO) qui s'y trouvent. COUNTFILE est utilisé pour 
enalyser les fonctions de tout un fichier et ramàne «filin» en valeur. 


(COUNTF <filin>) [FEXPR] 


est une forme abrégée de la fonction COUNTFILE. L'appel de 
(COUNTF <file>) correspond à l'appel (COUNTFILE *'«file»). 


; Exemple d'utilisation des Соар авва our les fonctions 
XEOL XPRIN1 FLATSIZE et SUPERP du PRETTY-PRINT 
qui se prettyprinte lui-même! ; 


H % on suppose que le Pretty-print est déjà chargé en mémoire : 
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*? | (COUNT XEOL AA FLATSIZE SUPERP) 3; demande du comptage : 
SYS:DEBUG. VLI Loaded 

= Gen ҮРНІМІ FLATSIZE SUPERP) 

- time = 1000 ms ; 

? (PRETTYF PRETTY) ; eppel du pretty-print sur lui-même ; 


Ab w физ 


ALLO ? 
= (DSK (PRETTY . . VP) (LIS . JER) 45) 


- % time = 34820 ms ; | 
2  (UNCOUNT) t demande les résultats du comptage ; 
ЖЕСІ. í 62 | 
ІНІМ : ` 1580 
FLATSIZE : 5188 
SUPERP : 1505 
= (XPRIN1 FLATSIZE XEOL SUPERP) 
= $ time = 240 ms ; 
? 


; Nouvel EEN de COUNT : comptage de toutes les fonctions 
du compilateur durant la compilation du fichier DISPLAY 3 


? 

? (COUNTF COMPIL) 
SYS:DEBUG.VLT Loaded. 
SYS:CONPIL: VLI Loaded. 


= COMPIL 
= + time = 17180 ms ; 


(COMPILEF DISPLAY T P ` 
SYS:PRETTY.VLI Loaded. 


ALLO 
(DSK (DISPLAY e . VLA) (LIS . JER) 45) 


> $ time = 12140 ms ; 
2 «UNCOUND 
ж18ВІТР : 6 
*ADD : 37 
жА001 : 282 
КСИР : 60 
жСМРВЕО : 5 
XxCMPREDSTD : 1 
EN : 97 
XGENOSUBR : 2 
&GENISUBR : 19 
XGEN2SUBR : 20 
«ISKIP : 9 
ЖКТ : 35 
Ж ЕМ. : 8 
&LENS : 178 
ЖОРТ; 16 
PAL : 13 
XPROGN : 10 
«XRESOL : 8 
*RSTL : 1 
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> 


OMPILEF : 
COMPILEFILE : 
COMPILEREASE : 
COMPILES : 
COMPILOPT IONS 
COMPILPR : 

EN : 

MP: 
MEXPAND2 : 
MEXPARITH : 
PRCOD : 
PRCOMMENT 
E i 
PRSSEC : 

=  GKIBBITP «ADD *ADD1 жСМР xCMPRED xCMPREDSTD *DGEN2 WEN xGENOSUBR 

= XGENISUBR xGEN2SUBR xISARG xISKIP xKST ж. АМВПА ж ENL XLENS xLKO xLK1 xLKM 

= XLKSTBL. КТ NIEWIEM xOPT жРА1 xPKST xPROGN xRCR XRESOL *RSTL xSCR ж55В 
LEES XTHO жТҮРЕМТ xUNIQUEP COMPIL COMPILE COMPILEF COMPILEFILE | 

= COMPILEND COMPILEREASE COMPILERROR COMPILES COMPILINDIC COMPILOPTIONS | 

- LOMPILPR DGEN MACMP MEXPAND MEXPAND2 MEXPARITH PRCOD PRCOMMENT PRLAP PRSSEC 
“ PRTBL SORTL TMACMP) 


= 4 time = ‘1860 ms ; 
2 < 


3 
r 
ve 
© Oo 1^ + © © IN) N CO 


T 


+ 


DONN 


ye 
XIT 


9.6 Autres Fonctions De Mise Au Point 


(LOC <s> <і>) [SUBR à 2 arguments] 


permet de connaître l'adresse mémoire de l’objet <5>. Si 
L’ indicateur <i> = T, cette adresse est l'adresse physique réelle, si cet 
indicateur = NIL, c'est l'index par rapport au début des objets qui 
est retourné en valeur. M 


ех: (LOC NIL) pO 
(LOC "200 ү 2760 
(LOC NIL T) қ” 1246 


(VAG «n» <і>) [SUBR à 2 arguments] {pour VAlue Get) 


ramène l'objet MSA d'adresse «n». Si l'indicateur «i» = T, cette 
adresse est l'adresse physique réelle, sinon «n» est un index par rapport 
au début des objets MIS. Cette fonction est utilisée conjointement à (а 
fonction LOC pour manipuler les adresses physiques. 


ex : (VAG 0) ІР NIL 


(VAG 2760) k” 700 
(VAG (LOC ? (GO N))) EH (GON) 
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(PATCH «nl» «n2») [SUBR à 2 arguments] 


permet de modifier le contenu du mot mémoire d'adresse «nl» амес la 
valeur «n2» (si «n2» est donné). PATCH ramène (е contenu du mot mémoire 
'd'adresse «ni» aprés modification. Il est à noter que cette fonction 
utilise L’UUD ЅЕТЈИР ce qui permet de modifier Le segment haut de 
L’ interprète lui-même. Cette pratique, très pernicieuse, est à éviter 
dans La mesure du possible. 


(MEMORY <n>) [SUBR à 1 argument] 


ramène la valeur du mot mémoire d'adresse «n». 11 est préférable 
d'utiliser cette fonction à la place de (а fonction précédente (PATCH), 
sl ia mémoire est en lecture seule, car cette fonction ne peut pas 
provoquer d'accidents pour 1” interprète lui-même. 


(DDT) [SUBR à 0 argumenti 
| (pour Dichloro Difluoro Totuàne) 


Appel l'utilitaire DDT si celui-ci a été chargé. Cet utilitaire sert à 
mettre au p les programmes écrits en langage machine (interprète ou 
fonctions LAP). Pour revenir sous VISA il faut utiliser la commande 
а sous DDT. St ПОТ n'est pas chargé cette fonction ramène NIL tout 
de suite. ` m m 
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| CHAPITRE 10 | 


PRETTY PRINT | 


CROSS REFERENCE 
ET INDEX 


10.1 Le Pretty-Print 


Les fonctions standards PRINT et PRIN1 sont d'ordinaire utilisées pour éditer 
les — S-expressions (MIS Les seules mesures prises pour améliorer la 
lisibilité sont : 

~ l'insertion d'un espace entre chaque atome ;;: ` 

- l'interdiction d'éditer un atome (atome littéral, nombre cu chaîne `> 
caractères) sur deux Lignes. 22 


Ces mesures sont nettement insuffisantes pour éditer vos programmes. Les 
fonctions du Pretty-Print vont les éditer d'une manière beaucoup plus lisible 
en faisant resortir, au moyen de renfoncements gauches et de sauts de Lignes 
ad hoc, la structure de vos fonctions. | | 
Les macros-caractéres dáf.nis de manière standard dans le système (i.e. (өз 
caractères ' [ ] ) sont restitués par Le Pretty-Print; en particulier + 

> | 


(QUOTE <s>) ` devient  '«s 
(NCONS <s>) devient [<s>] 
(CONS «sl» «s2») devient [ «si» . <62> 1 


(MCONS «si» ... «sN») devient [ «sl» ... «sN-1» . «sN» ) 
(LIST «sl» ... «sN») devient [ «si» ... «sN» 1 


En outre les LAMBDA-express ions explicites sont éditées sous leurs formes LET. 


10.1.1 Les Fonctions Du Pretty-Print - 


Les fonctions standard qui vont étre décrites sont de type AUTOLOAD (i.e. UL 
n'est pas besoin de charger le fichier qui les contient, (е système le fera 
our vous au premier appel de l'une de ces fonctions). 
"ordinaire ces fonctions se trouvent dans le fichier : 
(SYS (PRETTY . VLI)) pour la version interprétée 
(SYS (PRETTY . VLA)) pour la version compilée lisible 
(SYS (PRETTY . VLO)) pour la version compilée chargeable 
Ce fichier est donné en Appendice D. 


ГІ existe une image mémoire contenant Le Pretty-Print compilé. Cette image 
mémoire ве trouve (en général) dans un fichier système de nom : VPRETTY . 
Donc pour utiliser un interprète contenant déjà un PRETTY-PRINT compilé il 
suffit d'émettre (а commande moniteur : 

‚В VPRETTY | 
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(РВЕТТҮР <s>) [SUBR à 1 argument] 


édite (а S-expression «s». Cette fonction ramène «s» en valeur. Elte 
est utilisée en général dans vos propres fonctions qui veulent éditer 
proprement des S-expressions MIS. 


(PRETTY «al» «a2» ... <аМ>) I[FSUBRI 


édite les définitions existantes de type EXPR, FEXPR, MACRO, MACIN, 
MACOUT ou macro-caractère des différents atomes «el» ...  «aN» sous leurs 
formes DE, DF, DM, DMI, ОМО ou DMC. Cette fonction ramène toujours NIL 
en valeur, Elle est utilisée en mise au point conversationnelle, pour 
vérifier alsément un parenthésage douteux. 


(PRETTYFILE.<filout> «filin» <swl>) [SUBR à 3 arguments] 


édite dans Le fichier de sortie <filout>, toutes les S-expressions 
contenues dans le fichier d'entrée «filins». S'il n’y a pas de 
ое pour le fichier de sortie (si <filout> = NIL), (е fichier 
(DSK (PRETTY . VLP) О \055) est utilisé. L’extension standard des 
fichiers de sortie du Pretty-Print est .VLP . Ces fichiers peuvent être 
relus par MP, mais doivent être reformatés pour utiliser l'éditeur de 
L' IRCAM ETV. 
L'indicateur «swl» permet de contrôler le transcodage automatique 
minuscule majuscule : si «sul» = NIL, toutes (ев lettres sont traduites 
en majuscule, si <swl> = T les lettres sont restituées dans les casses 
d'origine. бі cette dernière option est choisie, les noms des fonctions 
Standard ne sont pas reconnus s'ils apparaissent en minuscules. | 
Cette fonction permet de faire des copies lisibles de vos programmes 
après mise au point. Пе plus cette fonction a le bon goût de Lire et de 
reécrire les commentaires (i.e. (а suite de caractères quelconques 
encadrée du délimiteur ";") qui sont d'habitude complétement ignorés de 
. Ceci devrait vous donner L'envie de bien commenter Les er iare 
n saut de page est effectué à chaque occurence du caractère (Form 
eed) ou à (а rencontre du commentaire spécial ;PAGE; . SR | 
ETTYFILE ramène en valeur le nom du fichier de sortie utilisé. 


(PRETTYF «tile» «svi»? IFSUBRI | 


est une forme abrégée de la fonction PRETTYFILE. L'appet (PRETTYF «fite» 
<swl>) correspond à l'appel suivant : 
(PRETTYFILE ’ (DSK («file» . VLP) (СЕТРРМ) \055) 

' (DSK (<file> . VLI)) 

<5w1>) 
Cette fonction est donc utilisée pour éditer d’une manière standard un 
fichier standard. PRETTYF ramène (а valeur du PRETTYFILE i.e. le nom du 
fichier de sortie utilisé. 


(PRETTYSIZE <n>) [ISUBR à 1 argument] 


permet d'initialiser à «n» la largeur d' inpression du Pretty-Print. Par 
défaut cette Largeur est de 72 ce qui correspond à-peu-prés au format 
standard 21x29,7. бі «n» n'est pas donné ou n'est pas un nombre, Le 
largeur standard est prise. PRETTYSIZE ramène Le largeur d'impression 
courante du Pretty-Print. 
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(PRETTYEND) IER à 0 argument] 


_ permet de récuperer la place occupée per les fonctions du PRETTY-PRINT. 

RETTYEND remet également [ез indicateurs AUTOLOAD de ces fonctions. 

PRETTYEND ramène en valeur Le nombre de doublets Libérés. Si vous 
utilisez Le Pretty-Print compilé, cette fonction n'a aucun effet. 


10.1.2 Edition Des Fonctions De L'utilisateur - 


Le Pretty-Print n'a pas à priori de connaissances sur Les fonctions de 
l'utilisateur; celles-ci sont éditées sans farmatage spécial. IL est 
possible d’ indiquer au Pretty-Print te format souhaité pour des fonctions 
particulières de l'utilisateur en mettant sur la P-Liste des atomes fonctions 
le format à utiliser sous 1° indicateur PRETTY. Le type du format à utiliser 
6st simplement Le nom de la fonction standard dont on veut "imiter" Le format. 
11 n'est pas possible actuellement de définir de nouveaux formats. | | 
ex : (РІЛ *US3 'PROGN 'PRETTYD 

indique au Pretty-Print d'éditer La fonction US3 d'une manière identique à La 
fonction standard PROGN. 


Les formate les plus usités sont : 


PROGN (<fonction> 
<argument 1> 


<argument N>) 


LAMBDA (<fonction> <argument 1> 
| <argument 2> 


+. 


CRE өе 


<argument N>) 


DE («fonction» «argument 1» «argument 2» 
«argument 3» оа 700) 


фео фо 


«argument N> 


SETQ (<fonct ion> | x 
«argument 1»  «ergument 2» 


Фдееееегегесеегеее 


<argument N-1> <argument N>) 


Pour ne pas surcharger ta P-iiste des atomes par des indicateurs qui sont 
rarement utilisés, il est recommandé de ne mettre ces indicateurs qu'au moment 
de l'édition. La fonction PRETTYFILE (ainsi que ta fonction PRETTYF) 
interprète les formes : 
| (POUR PRETTY ... ) 
La pose des indicateurs Spéciaux PRETTY se fera donc avantageusement par cet 
intermédiaire. 

ex : (POUR PRETTY (PUT 'US3 *PROGN 'PRETTYO) 
Cette forme, si elle est Lue par (а fonction PRETTYFILE, est équivalente à 
(PUT 'US3 'PROGN ’PRETTY) en revanche, lue par le TOPLEVEL (i.e. L’évaluateur 
MISE, elle est ineffective. 


Cette interprétation des POUR peut avoir d'autres utilités que la pose 
d' indicateurs 
par exemple : 
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(POUR PRETTY (STATUS B 8)) 
indique au Pretty-Print (et à іші seul) qu' а faut écrire Les nombres еп 
utilisant une base octale ... | | 


10.1.3 Exemples D'Utitisation Du Pretty-Print - 


„В Ү 15Р 

Ү 15Р 10.3-21 5-0с%-78 23:44:23 (LIS . JER) 

Pour avoir L'etat de La documentation demande .HELP VLISP 
SYS: VLISP. INI Loaded. 
DSK: VL ISP. NI Loaded. 


À oem un HHOISALL) 
fue TTY.VLI Loaded. 


(DF WHOIS (NAME LIGNE JELAI) 
(SETQ NAME (CAR МАМЕ?) 
(WITH (EOF NIL (INPUT) (&E0F)) 
(FILE READ "SYS:FACT. TXT" D 
(ESCLOOP &EOF 
(SETQ 3n 2.” 
(ESCAPE &UNC 
(MAPC CIMPLODE (CONCAT "(" LIGNE °)")) 
(LAMBDA (NOM) | 
(IF (SAMEPN NOM NAME) E 
(&UNCOUP (PRINT LIGNE) (SETQ JELAI D) 
(IF JELAI "ОҚ "Nie ma ...")) 


(DE HHOISALL О 
ER (EOF NIL (INPUT) (SEOF)) 
ILE READ "SYS:FACT. TXT" T) ` 
Do eer &EOF (PRINT (READSTR)))) - 


- NIL 
^ s time = 5660 ms ; 
? 
d (PRETTY ZC 
(DMC /r О І?РВЕТТҮ (READ)]) 
» NIL 
я ; time = 80 ms ; 
? € 
В e 
I 


2 
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10.2 Le Cross-Référence 


D'une manière identique au Pretty-Print, Le Cross-Référence va éditer des 
fonctions MF, еп faisant ressortir au moyen de renfoncements gauches et de 
sauts de lignes ad hoc, les structures de contrôle des fonctions. 

De plus chaque Ligne en sortie est numérotée, ce qui permet еп fin d'édition 
d'établir un tistage des références croisées, i.e. La Liste de tous les 
atomes litéraux, triée par ordre alphabétique, rencontrés dans La (ou Les` 
fonction d'entrée. A côté de chaque atome, Les numéros de Lignes, dans 
lesquelles apparait cet atoms, sont édités, triés par ordre croissant. 


10.2.1 Les Fonctions Du Cross-Référence - 


Les fonctions du Cross-Référence qui. vont être décrites sont de type AUTO OAD 
(i.e. LL n'est pas besoin de charger Le fichier qui Les contient, le système 
le fera pour vous au premier appel de l’une de ces fonctions). 
D'ordinaire ces fonctions se trouvent dans le fichier : 

(SYS (PRETTY . VLID) pour la version interprétée 

(SYS (PRETTY . VLA)? pour la version compilée Lisible 

(SYS (PRETTY . VLO)) pour la version compilée chargeab Le 
Ce fichier est donné en Appendice D. 


Les fonctions du Cross-Référence se trouvent donc sur le même fichier que les 

fonctions du Pretty-Print. IL est donc possible d'utiliser L' image mémoire 

contenant ce fichier compilé. L’appel de cette image mémoire s'effectue au 

moyen de la commande moniteur : | | 
.В VPRETTY : 


(CROSSFILE «filout» «filin» <swl> <su2>) [SUBR à N arguments] ` 


édite dans le fichier de sortie <filout>, toutes Les S-expressions 
contenues dans le fichier d'entrée <filin> en numérotant toutes Les 
Lignes, puis toujours dans le même fichier de sortie CROSSFILE imprime La 
Liste des références croisées de tous les atomes litéraux du fichier. 
S'il n'y a pas de spécification pour le fichier de sortie (si 
«filout» ж NIL), Le fichier (DSK (CROSS . VLC) О \055) est utilisé. 
L'extension standard des fichiers de sortie du Cross-Référence est LC 
Ces fichiers ne peuvent pas être relus directement par NLISR car tes 
Lignes sont numérotées. 

L'indicateur «sw1» sert a spécifier s'il faut traiter les références aux 
atomes systèmes. Si «swl» = NIL, seuls les atomes utilisateurs seront 
traités, si «sul» = T, tous les atomes seront traités. 

L'indicateur «su2» permet de contrôler Le transcodage ` automatique 
minuscule majuscule : si «su2» = NIL, toutes les lettres sont traduites 
en majuscules, si «sw2» = T les lettres sont restituées dans leurs casses 
d'origine. 51 cette dernière option est choisie, les noms des fonctions 
Standard ne sont pas reconnus s'ils apparaissent en minuscule. 

CROSSFILE ramène Le nom du fichier de sortie utilisé. 


(CROSSF «file» <swl> «su2») [FSUBR] 


est une forme abrégée de la fonction CROSSFILE. L'appel (CROSSF <file> 
<sul>) correspond à l'appel suivent : 
(CROSSFILE '(DSK (<file> . VLC) (GETPPN) \055) 
* (DSK (<file> . VLI)) 
<541> 
<502>) 
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Cette fonction est donc utilisée pour éditer d’une manière standard un 
fichier standard. САОЅЅҒ ramène la valeur du CROSSFILE i.e. Le nom du 
fichier de sortie utilisé. | | 


(CROSS «at» <sul> «sw2») [FSUBR] 
Effectue l'édition de la fonction de nom «at» ainsi que l'impression de 
ses références croisées d'une manière identique à Lla fonction CROSSFILE. 


Toutes ces impressions se font dans le fichier de sortie courant. Les 
indicateurs <swl> et «sw2» sont utilisés de manière identique. 


10.2.2 Exemple D'utitisation Du Cross-Référence - 
‚В VPRETTY 


--- ALO? --- 
Е 


? 
? (CROSS ТҮРЕ T) 
1 (DE TYPE (FILIN) 
2 (FILE READ FILIN) 
3 | (STATUS 17 (ASCII 13) 2) 
4 (WITH (EOF NIL CTERPRI) (INPUT) (SEOF)) 
: | .. (Е5СІ ООР SEOF (PRINC CREADCH)))) 
7 


(STATUS 17 (ASCII 13) 0) 
FILIN) 


CROSS REFERENCE 
&EOF 4 5 
ASCII 36 
DE 1 
EOF 
ESCLOOP 
FILE 
FILIN 
INPUT 
PRINC 
READ 
READCH 
STATUS 
TERPRI 
TYPE 
WITH 


2 7 


> ` Eech к ыз ғ 
T (9 N mr СО 
м. г c Uu N O ++ ré NS а + 


[ 
Ul 
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10.3 L'Index (1) 


Le programme d'INDEX effectue la Lecture d'un ensemb Le de fonctions et édite, 
en fin de lecture, une série de renseignements sur chacunes des fonctions 
traitées ainsi que sur certaines interactions entre les fonctions elles-mêms. 


L'INDEX fournit pour chaque fonction Les renseignements suivants : 


TYPE = (е type de (а fonction qui peut être EXPR, FEXPR, MACRO, MACIN, MACOUT 
ou MCHAR (pour les macro-caractères). 


ARGS = Les arguments de la fonction 


` 


FVARS = les variables libres utilisées à l’intérieur de cette fonction. 


FVARSET = les variables libres qui sont -modifiées à l’intérieur de cette 
fonction. 


STRINGS = Les constantes de chaîne de caractères utilisées dans cette 


USING = les fonctions (de l'ensemble des fonctions traitées uniquement) =u: 
sont appellées par cette fonction. | | es 


_ USEDBY = les fonctions (de l'ensemble des fonctions traitées uniquement) qui 
appellent cette fonction. 


Ces deux derniers renseignements sont indispensables pour déterminer l'arbre 
des appels des fonctions. | 


10.3.1 Les Fonctions De L'INDEX - ` 


Les fonctions de L’INDEX qui vont être décrites sont de type AUTOLOAD (i.e. 
LU n'est pas besion de charger le fichier qui les contient, le systéme le fera 
our vous automatiquement аи premier appel de l'une de ces fonctions). 
"ordinaire ces fonctions se trouvent dans le fichier : 
. (GYS (INDEX . VLI)) pour la version interprétée 
(SYS (INDEX . VLA)) pour La version compilée lisible 
(SYS (INDEX . VLO)) pour la version compilée chargeab Le 


CINDEXFILE <filout> «filin» «ev1») [SUBR à 3 arguments] 


traite toutes les fonctions incluses dans le fichier d'entrée «filin» et 
édite l'index de ces fonctions dans le fichier de sortie «filout». Si 
l'indicateur «sul»-T Les fonctions apparaitront triées par ordre 
alphabétique dans Le fichier de sortie; si L'indiceteur <swl>=NIL, Les 
fonctions apparaitront dans le fichier de sortie dans іе même ordre. que 
dans 1e fichier d'entrée. S'il n'y a pas de spécification pour le 
fichier de sortie (i.e, si <filout> = NIL), Le fichier 
(DSK (INDEX . VDO О \055) est utilisé. L'extension standard des 
fichiers de sortie de L' INDEX est .VLX . 

INDEXFILE ramène en valeur le nom du fichier de sortie utilisé. 


ee EE E E EE E dm E DAS SE do EC E E E ms E E E E E E Ы ue T... re e а mile ue cn me me A ie ne A e Ai. A .. СТРЕЛИ ` n > .ма -.- 


(1) Ce programme a été conçu et réalisé par Patrick GREUSSAY. 
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(INDEXF «file» «sw1») [(FSUBR] 


est une forme abrégée de la fonction INDEXFILE. L'appel (CINDEXF «tite» 
$41») correspond à l'appel : | EN 
(INDEXFILE ? (DSK (<file> . VLX) (GETPPN) 1055) 
* (DSK (<file> . VLI)) 
<swl>) 
Cette fonction ramène іа valeur ramenée par INDEXFILE і.е. Le з" du 
fichier de sortie utilisé. 


10.3.2 Exemple De Sortie Obtenue Par L'Index - 


(extrait de L’INDEX du fichier PRETTY. МЕР 


esoe a 


RRE CROSSFILE ---------- 


ТҮРЕ = EXPR 

ARGS = (FILOUT FILIN ?CROSSALL ? INDEX NBLINE МВЕМТ) 
FVARS « (PRETTYSIZE) 

FVARSET = (PRETTYSIZE) 


TYPE = EXPR 
ARGS = ( NB X) 
VARS = ( NBFNT ?INDEX) 
VARSET = (?INDEX) 
TRINGS = ("Cross Reference") 
USEDBY « (CROSS E0F) 


TYPE = EXPR | | 
FVARS = (?INDEX FILIN FILOUT PTVRG) 
USING = (XPC &EDF CROSSPRINT PRETTYFIND 


TYPE = EXPR 
ARGS = (XL XND 
USING = (ADDN FLATSIZE) 
. USEDBY = (FLATSIZE SARENTRE) 


Sep eg 
Фееге 
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CHAPITRE 11 


LE LAP ET LE LAPACK | 


Le (АР est un assembleur (ressemblant à l'assembleur du PDP10), conçu pour 
être utilisé par М9 10.3 et prévu originellement pour charger ie code issu 
du compilateur. IL. peut être utilisé seul pour écrire de nouvelles fonctions 
standard. Un minimum de connaissances de l'assembleur PDP10 et de 
L'organisation de L’interprète est requis pour utiliser Le (АР sans dégats. 
(АР recoit en FA еі une liste dont les éléments peuvent être : 

- des atomes litéraux (qui servent d'étiquettes) | 

- des listes EE des instructions normales, des pseudo-instructions, | 
ou des macro-LAP (МАС! АР). | | mE 

Cette Liste peut être remplacée par un fichier s'il y а beaucoup 
d’ instructions à charger. | 


Aprés assemblage ces instructions sont chargées en mémoire dans une zone code 
prévue à cet effet. бі cette zone se révèle trop petite une erreur apparait; 
le Libellé de cette erreur est : 

ЖЖ no room for code. 
Cette erreur est fatale. IL faut augmenter la taille de (а zone allouée au 
code (dans {а fonction CONFIGURATION du fichier initial CONFIG. IND) et 
relancer tout Le chargement. | m | 


11.1 Les Registres 


L'interpréte utilise Les 16 registres de ia machine de la manière suivante : 
no symbole remarques 


00 RG est le registre général lui-même. Оп peut donc tester 
. directement au moyen d'un masque les bits utiles. 


01 А1 ` accumutateur 1 
02 А2  accumulateur 
03 АЗ  accumulateur 3 


! 
| Seuls ces 4 registres sont nettoyés раг 
| te G.C. 

04 A4 ` accumulateur 


06 АВА eccumulateur 
07 A7  accumulateur 
10 А8 accumulateur 


Ces 4 registres font office de registres 


2 
4 
05 А5  accumulateur 5 
; auxiliaires, 


1101 user 1 | Ces 2 registres ne sont 
1200 user 2 | jamais utilisés par L’interprète 
| et sont donc réservés pour l'utilisateur. 


13 L Link est utilisé pour les appels de S.P 
de type JSP. 
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14 STRG contient toujours le pointeur sur la Liste 
libre des chaînes. 


15 NUMB contient toujours le pointeur sur la Liste 
Libre des nombres. 


16 FREE contient toujours le pointeur sur (а liste 
Libre des Listes. 


17 P est Le pointeur sur l'unique pile utilisée 
par t'interpréte. | 


11.2 Format Externe D’une Instruction 
Chaque instruction est représentée par une tiste de (а forme : 
( «codop» «registre» 8 «adr» «index» ) 


<codop> - est ie mnémonique de l'instruction (tous Les mnémoniques des 
instructions PDP10 sont disponibles en revanche Les шынай des CALLI et 
des TTCALL ne le sont pas). 


«registre» - est (в numéro ou le symbole du dise ler opérande. 


@ - si cet atome est présent (ей à cette position), (е bit d' (direction: de 
L’ instruction sera positionné. | 


«adr» - représente (а valeur du champ adresse qui sera chargée dane Les 18 
bits de poids faibles de l'instruction (la description de ce champ suit). 


«index» - est Le numéro ou le symbole du registe d'index. Се dernier champ ` 
est optionnel. E 


le сһатр «adr» "peut avoir la représentation 6uivante : 


- un nombre (utilisé dans les intructions possédant des valeurs immédiates). 
- un atome littéral qui peut être : | | 

- un symbole de registre 

- une étiquette | | 

- un symbole spécial. LAP connait en effet certaines adresses utiles de 

L’ interprète. Ces adresses ont été chargées par le LINK-10 . Eltes sont 

représentées par un symbole dont Le ler caractère est toujours un " з ", 
- une liste représentant : 

= ( nombre ) une adresse relative au début de chargement. 

- (ж nombre) une adresse relative au compteur d'assemblage. | 

~ (QUOTE objet Lisp) ou ' objet Lisp , l'adresse de l'objet Lisp spécifié 

Cette adresse est en réalité l'index de cet objet par rapport au début de 

(а zone des objets Lisp. 

- (+ «adri» ... <adrN> ) із somme des différentes adresses spécifiées. 

~ (MEM <adr>) cet opérande est la forme abrégée de : 

(+ sMEM «adr». 


exemples d'instructions : 


(MOVEI A1 2) 

(MOVE А1 8 TAB А5) 
(CAML A4 :BLIST) 
CJRST 0 (ж -5)) 

(САТЕ A4 'LAMBDA) 
(HRRZ АЗ (+ :MEM °Х)) 
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11.3 Les Pseudo- instructions 


LAP connait un certain nombre de pseudos-instructions dont la forme externe 
est identique à celle des instructions normales. 


(COMMENT ... ) ou (ж... ) 


cette pseudo-instruction est complètement ignorée du LAP. Elle permet 
d’ insérer des commentaires à l’intérieur d'un programme LAP. | 


(END) | 
indique la fin d'un E AR (ип 2ème peut suivre dans ta Liste des 
instructions fournie au (АР). Cette pseudo est automatiquement générée 
en fin de Liste (ou de fichier) d'instructions ; elle n'est donc pas 
obligatoire. 


(ENTRY «nom» «type» <nombre>) 
permet de définir le point d'entrée d'une fonction qui devient une 
fonction standard de MIS Le nom de la fonction «nom» doit être un 
atome littéral, Le type de cette fonction peut être SUBR ou FSUBR. Si Le 
type est SUBR on peut spécifier son nombre d'arguments (si cette fonction 
posséde un nombre d'arguments plus petit ou égal à 3). 
ex: (ENTRY FACT SUBR 1) 


(EVAL <s>) 


évalue l'expression «s» spécifiée en argument. Cette pseudo-instruction 
пе charge aucun mot mémoire mais permet d'accéder directement à 
l’ interprète. | 

ex: (EVAL (PRINT "2ème partie.")) 


(EXP <adr>) 


réserve un mot qui est initialisé avec 1а valeur de «adr». 
ex: (EXP -1) 


 (ОРСО «symbole» «valeur») 


permet de définir de nouveaux mnémoniques pour les codes instructions. 
ex : (ОРСП PJRST \254) | 


(QUOTE <s>) ou bien ' <s> 
| réserve un mot contenant ип pointeur sur l’objet Lisp <s> spécifié. 


(REGISTER <symbole> <valeur>) 
permet de définir de nouveaux mnémoniques pour les registres. L'argument 
«symbole» doit être un atome littéral, et sa valeur associóe «valeur» 
doit être comprise dans l'intervalle [O , 15]. 
ex : |. (REGISTER PILE M7) 


(VALAP «symbole» «valeur») 
permet de définir de nouveaux symboles dont La valeur est donnée 


explicitement. — L'argument «symbole» doit être un atome Littéral et sa 
valeur «valeur» numérique. 


ех:  (VALAP : JBSYM M16) 


http://www.artinfo-musinfo.org VLISP 10.3 Manuel de référence, août 1978, page 143 / 224 


Page 142 ESP 10. 3 Manual de Référence 


(XWD «adr» «adr» ) abreviation [«adr» <adr>] 
réserve un mot dont Les 2 demis-mots sont initialisés avec Les valeurs. 
des opérandes fournis. d 
ех: (XWD -1 (+ :MEM (ж 3))) 


11.4 Les Macro-LAP 
Il est possible de définir des macros en utilisant la pseudo suivante : 
(MACLAP «nom» «Liste d'argument» «corps de (а fonction» ) 


cette pseudo-instruction permet de définir Les MACLAP . А Uapparition 
d'une intruction de la forme (<поп> «argl» .. <argN>) dans laquelle 
«nom» est Le nom d'une MACLAP, la fonction spécifiée est  appeilée avec 
<argl> ...  «argN» comme arguments. Si La valeur ramenée par cette 
application est une Liste, elle est re-assemblée; si la valeur est NIL, 
rien n'est assemblé. 


exemple de définition de MACLAP : 


(MACLAP INCR (ATOM) ` 5 
ІРНІҢ21 D °:MEM [QUOTE АТ0М111 
* (PUSHJ P ADD1) 
['HRLM 1 ['+ °: МЕМ [QUOTE ATOMI111) 


L'appel de (INCR X) 
sera expansé en  (HLRZ 1 (+ MEM 'X)) 
| (PUSHJ P ADD1) 
(HRLM 1 (+ :MEM ' X5) 


Les MACLAP sont très puissantes car elles donnent accès à  l'interpréte 

імі-тбӛте et permettent de définir des pseudo-instructions très sophistiquées. ` 
Ces MACRO sont toujours traitées en premier lieu; on peut donc redéfinir 
toutes les instructions ainsi que les pseudo-instructions standard. 


11 existe un certain nombre de MACLAP  prédéfinies qui possèdent Les 
définitions suivantes : | | | 


CAR | (MACLAP CAR (D S) LUC HLRZ D ' :MEM 511) 
CDR (MACLAP СОН (D S) tI'HRRZ D ':MEM 511) 
JPLIST ` (MACLAP JPLIST (R A) 


ГІРСАМСЕ В ':BLISTI 
[' JRST 0 A11) 


JNLIST (MACLAP JNLIST (R A) 
(CAN R ':BLISTI 
['JRST 0 A11) 


CONS (MACLAP CONS (R) 
ГІРЕХСН R ':MEM 'FREEJ 
['EXCH 'FREE R11) 


UNCONS (MACLAP UNCONS (R CAR CDR) 
СІР (NEQ Н CDR) 
[CU HRRZ CDR °: МЕМ R] 
['HLRZ CAR ':MEM R11 
CL'HLRZ CAR ”:МЕМ В] 
['HRRZ CDR ':MEM R11) 
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11.5 Accès Aux Objets ME 


Les atomes iitéraux, les nombres, les chaînes et les Listes sont stockés dans 
des zones fixes du LOMSEG (cf: Le chapitre Organisation et utilisation). Ces 
objets sont toujours représentés d'une maniére interne par un POINTEUR sur ces 
zones ; ce pointeur n'est pas une adresse physique mais un index par rapport 
au début de cette zone. Оп a accès aux Limites de ces zones au moyen de 
symboles spéciaux (dont Le ler caractère est un ":") qui sont connus du LAP. 


: MEM adresse physique du début 
de la zone des objets MIJA. 


- ZONE DES ATOMES LITERAUX - 


: BNUMB | index du début de la zone 
des nombres. 


- ZONE DES NOMBRES - 
:BSTRG index du début de (а zone 
des chaînes. 


- ZONE DES CHAINES - 


(BL 157 index du début de la zone 
des listes. 


- ZONE DES LISTES - 


11.6 Test De Type 


Grâce à ce découpage Че la mémoire, Le test de type se ramène à une 
Comparaison avec (вв limites des zones, се qui est très efficient. Le 1er 
atome stocké dans la zone des atomes litéraux est l'atome NIL ; La valeur de 


son (index est 0; les tests par-rapport à NIL peuvent se coder en une seule 
instruction (JUMPE ou JUMPND. | | 


ex 1 
; branchement si Al est égal à NIL ; 
(JUMPE Al que lquepart) 


: branchement si A2 n'est pas une liste ; 
(CAML А1 :BLIST) 
(JRST 0 quelquepart) 


; branchement si А1 est un nombre ; 
(CAML А1 :BNUMB) 

(CAML A1 :В5ТНб) 

XJRST 0 quelquepart) 


11.7 Création D'objets 


Pour créer un atome littéral, il faut préparer dans ип petit buffer (de 3 
mots) de nom :РМАМЕ (ce nom est connu de LAP) Le P-name de L'atome que l'on 
veut créer puis S rei une routine de l'interprète de nom : TRYATOM au moyen 
d'un (PUSHJ P :TRYATOM). Се buffer doit contenir Les caractéres de P-name en 
code ASCII. Le ler caractère doit être le nombre total de caractères du 
P-name. Ce buffer est complété avec des 0. Au retour le registre А1 contient 
(е pointeur sur ce nouvel atome. 
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Pour créer un nombre, il faut mettre sa valeur dans Le registre AS puis 
Ет (а routine :CRANUM pour créer un nombre entier ou bien (а routine 
sCRAFLT pour un nombre flottant au moyen d'un (PUSHJ P :CRANUM / :CRAFLT), Au 
retour le registre А1 contient le pointeur sur ce nouveau nombre. 


Pour créer une chaîne, il faut mettre la Liste contenant tous Les caractères 
(sous forme atomique) dans te registre Al puis appeller La routine de 
L’ interprète :CRASTR au moyen d'un (PUSHJ P :CRASTR). Au retour te registre 
Al contient Le pointeur sur cette nouvelle chaîne. 


On peut créer un doublet de Liste directement. IL faut préparer un registre 
<r> quelconque (Al A2 АЗ ou Ай) avec en partie gauche Le CAR du doublet et en 
partie droite son CDR puis stocker le doublet et actualiser FREE. Il n'est 
pas nécéssaire de tester [а fin de la Liste Libre. En effet une adresse 
invalide, mise en fin de Liste Libre, provoque une interruption sl on essaie 
d'accéder à ce mot, interruption qui est reconnue comme tentative de 
création de doublet et qui lance automatiquement Le | garbage-col lecting. IL 
est impératif d'utiliser Les deux instructions suivantes et sous ce format 
pour que le G.C. puisse être invoqué automatiquement. | 


; préparation du registre «r» puis 
(EXCH <г> :MEM FREE) ; création du doublet 
(EXCH FREE «r») ; actualisation de FREE 
; Le pointeur obtenu se trouve dans <r> 


11.8 Appel Des Fonctions 


Toutes les fonctions de L’ interprète sont appellées au moyen d'un 

PUSHJ Р à, l' adresse de lancement de іа fonction. | 
Toutes les fonctions doivent donc se terminer par un POPJ P. Les arguments 
des fonctions sont transmis dans différents registres en fonction du type de ` 
{а fonction. Cette transmission est effectuée automatiquement, avant. l'appel 
des fonctions, par Les fonctions interprète EVAL ou APPLY. Quelque soit te 
type d'une fonction, sa valeur est toujours retournée dans le registre Al (il 
faut donc que ce registre soit chargé avant іе retour de la fonction). Les 
fonctions de type SUBR à 1 argument reçoivent leur argument évalué dens le 
registre Al, Les SUBR à 2 arguments reçoivent Leurs arguments évalués dans Les 
registrés А] (pour le ler) et A2 (pour le 2ème), les SUBR à 3 arguments 
reçoivent leurs argments évalués dans les registres А1 (pour Le ler) А2 (pour 
le 2ème) et АЗ (pour le 3ème), tes SUBR à nombre quelconque d'arguments 
reçoivent une liste contenant tous les arguments évalués dans le registre Ай, 
les fonctions de type FSUBR reçoivent із Liste des arguments non-évalués dans 
le registre Al. 


11.9 Les Fonctions Standard Utilisées Par Le LAP 


Le LAP utilise un certain nombre de fonctions spéciales de l'interprète. Ces 
fonctions sont tout naturellement disponibles. 


(GETSYMBOL <at>) [SUBR à 1 argument] 


ramène la valeur du symbole atomique «at». Cet atome littéral doit 
commencer -par Le caractère spécial : et avoir moins de 7 caractères au 
total, donc être de la forme :xxxxxx . Si l'atome «at» ne possède pas de 
valeur, GETSYMBOL ramène NIL. Cette fonction permet d'avoir accès à La 
table des symboles, fabriquée par Le LINK-10, qui contient tous les 
symboles globaux de L’interprète MIA 10.3. 


ex : (GETSYMBOL ':GARBCLO ІР” 1220 (par exemple) 
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(GETSYMBOL "e XYZ) МП 


(OPCD <at>) [SUBR à 1 argument] 


ramène (е code opération de l'instruction machine de nom «at». Si <at> 
n'est pas un mnémonique d'une instruction connue, OPCD raméne NIL. 


ex : (OPCD 'JRSD E> 254 
(OPCD 'PJRSDE* NIL 


(REGISTER <at>) [SUBR à 1 argument] 


ramène ia valeur de L’atome «at» considéré comme (e nom d'un registre. 
Cette fonction connait Le nom des registres standard. бі «at» n'est pas 
le nom d'un registre standard, REGISTER ramène NIL. 


ex : (REGISTER 'A5) C 5 
(REGISTER 'A9) г” NIL 


11.10 Les Fonctions Standard Du LAP 


Les fonctions du LAP sont de type AUTOLOAD (i.e. il n'est pas besoin de 
Charger le fichier qui les contient, le système le fera automatiquement pour 
vous au premier appel de l’une de ces fonctions). | 
D'ordinaire ces fonctions se trouvent dans le fichier : 

. (SYS (LODLAP . VLI)) pour (а version interprétée 


(SYS (LODLAP . VLA?) pour la version compilée lisible 
(SYS (LODLAP . VLO)) pour la version compilée chargeable 


(LAP <l> <swl>) [SUBR à 2 arguments] 


est. (а principale fonction du LAP. Le premier argument <i> doit être une 
Liste d’instructions LAP; le deuxième argument «sui» est un indicateur 
qui vaut T si vous désirez un listage de l'assemblage. Le LAP étant un 
assembleur "ипе passe", (вв adresses des références avant ne sont pas 
correctes (et valent toujours 0). | | 


(LAPFILE «filout» «filin» <swi>) [SUBR à 3 arguments] 


le fichier d'entrée <filin> est un fichier qui ne doit contenir que des 
instructions LAP. LAPFILE va assembler et charger ces instructions. Le 
fichier де sortie <filout> contiendra tous les points d'entrée du fichier 
chargé, ainsi que les erreurs le cas échéant. бі l'indicateur «sul» = T 
un Llistage de l'assemblage sera produit également sur [е fichier de 
sortie «filout». Comme pour (а fonction LAP, Ll’assembleur n'exécutant 
Le passe, les adresses des "références avant" ne seront pas correctes 
at auront toujours la valeur 0), Si le fichier de sortie «filout» n'est 
pas fourni (i.e. si «filout» = NIL), Le fichier 
(DSK (LODLAP . LOD) (GETPPN) 1055) sera utilisé.  L'extension standard 
des fichiers de sortie de LAPFILE est .LOD . Si te fichier d'entrée 
<filin> n’est pas fourni (i.e. si <filin> = NIL) Le fichier 
(DSK (LODLAP . VLA) (GETPPN)) sera utilisé. L'extension standard des 
fichiers d'entrée de LAPFILE est .VLA . 
LAPFILE ramène en valeur le nom du fichier de sortie utilisé. 
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(LAPF «file» «sul ») IFSUBR1 


est une forme abrégée de la fonction LAPFILE. L'appel (LAPF «fite» 
<swl>) correspond L'appel suivant : | 
(LAPFILE ` (DSK (<file> . LOD) (СЕТРРМ) X055) 
. ° (DSK (<file> . VLA)) 
<641>) 
LAPF permet donc de charger un fichier d’intructions LAP d'extension .VLA 
comme par exemple des fichiers issus du compilateur. 


(LAPEND) [SUBR à O argument] 


permet de récupérer la place occupée par les fonctions du LAP, ainsi que 
les indicateurs placés sur certains atomes par le (АР. Si certains 
atomes contiennent toujours des références non résolues (ces atomes 
possèdent sur leur b- Liste l'indicateur ЖОС ), un avertissement est 
donné sous la forme : 


жж undefined symbol : Le nom de la fonction ои 
de l'etiquette toujours inconnue. 


11.11 Les Erreurs Détectées Par Le LAP 

Durant l'assemblage, un certain nombre d'erreurs sont détectées раг Le LAP. 

Ces erreurs ne sont jamais fatales mais le code généré est bien évidemment 

faux. Le Libellé d'erreur est le suivant : | 

3 LAP error : «type» in «arg» oo 

dans lequel Le type de l'erreur <type> est imprimé ainsi que L’argument 

défectueux. | | | 

Les différents types d’erreur sont : 

ADRESS - 1” орбгәпсів de type «adr» est erronné. | | 

GETSYMBOL - un symbole commence par Le caractère spécial : mais n'est pas 
connu de la fonction GETSYMBOL et n'a pas été déc laré au moyen de la ` 
pseudo- instruction VALAP. | 

LOD ou LODMEM - instruction inconnue. 


OPCD ~ Le champ <opcd> d'une instruction est mal codé ou bien Le 
pseudo- instruction OPCD est mal employée. | 


REG - un des champs «registre» ou «index» d'une instruction est incorrect. 


REGISTER - mauvaise utilisation de la pseudo- instruction REGISTER. 


11.12 Exemples D'utitisation Du LAP 


? 8 EE 

? ; DEFINITION DE LA FONCTION ОМЕР ; 
I ; QUI POSSEDE EN VLISP LA DEFINITION SUIVANTE : | 
? s; (DE ОМЕР (X) CIF (EQ X 1) T NIL)) ; 
2 (АР '(XENTRY ОМЕР SUBR 1) 

? (САТЕ Al 1) 

? (TDZA А1 А1) 

? (MOVEI Al 'T) 
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? _ (POPJ P») 
? p 


107206 (ENTRY A icon SUBR 1) 
107206 302 1 00 13761 (CAIE А 

107207 634 1 0 0 1 (TDZA Al NE 

107210 201 1 00 6 (MOVEÏ А1 'T) 
107211 2631700 0 (POPJ 


107212 
(107206 ОМЕР SUBR 1) 


(END) 
LAP 
$ time = 160 ms : 


? 

(TYPEFN 'ONEP) 
SUBR 

; time = O mer 
SH 1) 

t time = 0 ms : 
(ONEP) 

NIL 

; time = 0 ms ; 


; DEFINITION DES FONCTIONS 
; (DE CADDDAR OO (САН (CDDDAR X))) 
% (DE CADDDDR (X) (CDR (CDDDAR X))) 


(LAP Eu CADDDDR SUBR 1) 
SKIPA A1 :MEM A1) 
ENTRY CADDDAR SUBR 1) 
(HRZ А1 MEN A1) 
(JRST 0 CADDDR) ) 


0) 03400 “Аў 709 07070-7079 € VOIE Ro DOI 8 VOIE 


Т) 


107212 (ENTRY СА SUBR 1) 
107212 334 1 01 2336 (SKIPA A1 :MEM A1) 
07213 ` | (ENTRY CADDDAR SUBR 1) 
07213 554 1 01 2336 (HLRZ A1 :MEM A1) 
1152 254 0 00 407417 (JRST 0 CADDDR) 


(107212 CADDDDR SUBR 1) 
(107213 CADDDAR SUBR 1) 


LAP | 
; time = 180 пе; 


Jun *‘(ABCDEFGHI J) 


(END) 


; time = Ü ms : 
(CADDDDR '( (AB CDE) FGHI J)) 


¿ time = O ms ; 


; REDEFINITION DE LA FONCTION REVERSE STANDARD 
; (DE REV (L1 L2) 

; (WHILE (LISTP L1) 

; (SETQ L2 (CONS (CAR L1) L2) 


A) 2 B RB Йй # у) E 


ве жө же ve 
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a ; L1 (CDR L1)))) ; 
i (LAP P "REVERSE trés STANDARD. ") 
? (HLL 2 :MEM 1) 
? (CONS 2) 
? (CDR 1 1) 
? (ENTRY REV SUBR 2) 
? (JPLIST 1 RE) 
? (MOVEI 1 0 2) 
? (POPJ Р)? 
? | 
107215 (ж "REVERSE très STANDARD. ") 
107215 | RE 
107215 500 2 01 2336 (HLL 2 :MEM 1) 
107216 250 26 0 16 2336 (EXCH 2 :MEM FREE) 
i 7217 250 16 0 0 rim FREE 2) 

7220 550 10 0 1 2336 (HRRZ 1 :MEM 1) 
107221 (ENTRY REV SUBR 2) 
107221 311110 0 1231 (CAML 1 :BLIST) 
107222 2540 00 107215 (ВТ 0 RE) 

107223 201 1 02 0 (MOVEI 1 0 2) 
WE 2631700 0 (РОР.) Р) 
| 07225 
(107221 REV SUBR 2) 
| | (END) 

= (АР 

= ; time = 320 ms ; 

2 

? (REV "(А («BO D. E) '(F G H)) 

= (D ВС A F G H 

2 t time = Daer 


Les fichiers contenant du LAP (d'extension . VLA? sont très lisibles mais sont 
volumineux et longs à charger. Les fonctions du LAPACK vont tasser des 
instructions LAP en effectuant une première passe qui va résoudre toutes Les 
références absolues, les noms de registres, les codes instructions et d'une 
manière générale tout ce qui n'est pas relocatable. Le résultat en est une 
houvelle liste (ou un nouveau fichier) d'instructions LAP "tassées", 
chargeable plus rapidement mais devenues "illisibles". 


Les fonctions du LAPACK sont de type AUTOLOAD (i.e. il n'est pas besoin de 
charger Le fichier qui Les contient, le système le fera pour vous 
automatiquement au premier appel de l'une de ces fonctions. 
П”огаіпаіге ces fonctions se trouvent dans le fichier : 

(SYS (LAPACK . VLI)) pour ta version interprétée 

(SYS (LAPACK . VLA)) pour La version compitée lisible 

(SYS (LAPACK . VLO)) pour la version chargeable | 


(LAPACK <t>) [SUBR à 1 argument] 


tasse іа Liste d'instructions LAP <і>, 


et ramène une nouvelle Liste 
d'instructions tassées. E 


http://www.artinfo-musinfo.org VLISP 10.3 Manuel de référence, août 1978, page 150 / 224 


10. 3 Manuel de Référence | Page 149 


(LAPACKF ILE «filout» <filin>) [SUBR а 2 arguments] 


Le fichier <filin> est un fichier qui ne contient que des instructions 
LAP; LAPACKFILE va créer un nouveau fichier «filout» qui contiendra 
toutes les intructions du fichier d'entrée «filin» en format tassé. Се 
nouveau fichier est bien entendu chargeable par Le LAP. 
бі le fichier de sortie <filout> n'est pas fourni (i.e. si 
<filout> = NIL) alors Le fichier (DSK (LAPACK . YLO) (GETPPN) 5055) est 
. Utilisé. L'extension standard des fichiers de sortie du LAPACKFILE est 
VLO . Si le fichier d'entrée <filin> n'est pes fourni (i.e. sl 
<filin> = NIL) alors te fichier (DSK (LAPACK . VLA) (GETPPN)) est 
utilisé. L'extension standard des fichiers d'entrée du LAPACKFILE est 


„МА . 
LAPACKFILE ramène en valeur le nom du fichier de sortie utilisé. 


(LAPACKF «file» <swi>) [FSUBR] 


est une forme abrégée de la fonction LAPACKFILE. L'eppel (LAPACKF «file» 
«sw1») correspond à l'appel suivant : 
(LAPACKFILE ? (DSK (<file> . VLO) (GETPPND 1055) 
°(05К («fite» . VLA») 
| 8 -<вм1>) E 
LAPACKF permet donc de tasser un fichier d'intructions LAP d'extension 
«ҮА comme par exemple des fichiers issus du compilateur. 


11.14 Exemples D'uttisation Du LAPACK 


; L contient le code de la fonction KWOTE  ; 
$ qui peut se définir en MIJ : ; 


(ПЕ KWOTE (L) 
; (IF «АТОМ 1) 


че 
"3 
£2 
KE 
Q 
ри 
m 
pe 
t= 
че оо ve ve 


(SETQQ L | 
( (ENTRY KWOTE SUBR 1) 
(CAML 1 :BLIST) 
(POPJ P) 
(HRLZ 1 1) 
(EXCH 1 :MEM FREE) 
(EXCH FREE 1) 
(HRLI 1 'QUOTE) 
(EXCH 1 :MEM FREE) 
(EXCH FREE 1) 
(POPJ P))) 
( (ENTRY KWOTE SUBR 1) (CAML 1 :BLIST) (POPJ P) 
(HRLZ 1 1) (EXCH 1 :MEM FREE) (EXCH FREE 1) 
A b E (EXCH 1 :MEM FREE) (EXCH FREE 1) 


$ time = O ner 


(LAPACK L) 

(ENTRY КИОТЕ SUBR 1) 26986152601 24150802432 
-24150802431 22560638174 22666018817 
-29090326510 22560638174 22666018817 
24150802432 
2 ; time = 60 ms ; 


.-Ә-9-9-9-59-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9 


D 


"2728 8 8 EU 
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CHAPITRE 12 


LE COMPILATEUR 


ƏСЕРІ 10.3 possède un compilateur. Ii est sans danger et peut être utilisé par - 
tous. Ге compilateur peut traduire n'importe quelle fonction définie de type 

EXPR.ou.FEXPR en une suite. d’ instructions qui seront assemblées et. chargées 

bar le LAP. IL n'utitise AUCUNE déclaration spéciale et suppose que les 

fonctions que vous voulez compiler sont CORRECTES. Les fonctions ainsi 

compilées sont exécutées entre 3 et 10 fois plus rapidement, et occupent moins 

de place (avec un gain varient entre 20 et 200 %). Се compilateur garantit 

l'identité de résultat avec la forme  interprétée sauf en ces 

d'eutomodification de fonction ou en cas de redéfinition dynamique de 

fonctions standard ou en cas d'évaluation symbolique. 


12.1 Les Macro Du Conmpitateur 


Le compilateur utilise un certains nombre de macro-LAP, connues du LAP qui 
facilite son écriture et font gagner de la place à la génération du code. 


Toutes ces macro ne chargent qu'un seul mot mémoire. 


(ARRRAY «reg» «atome») | | 
m met dans le registre spécifié «reg» l'adresse du descripteur du tableau 


«atome». Cette macro est expansée en : 
2222. (HRRZ «reg» [+ МЕМ 5 '<atome>1) 


(CAR «regd» «source») | 


met Le CAR de l'objet «source» dans le registre «regd». Cette macro est 
bxpansée en : mE | 
ві l'objet «source» est 

- un registre (HLRZ «regd» :MEM «source») 

~ un atome (HLRZ «regd» [+ :MEM 'atomel) 


cette forme est équivalente au GETYAL. 


(CDR «regd» «source») 


met Le CDR de l’objet «source» dans le registre «regd». Cette macro est 
Әхрапвбе en : 
. el l'objet. «source» est | 

- un registre ARE «regd» :MEM registre) - 

- ип atome (HRRZ «regd» [+ :MEM 'atomel) 
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AGETVAL «registre» «atome») 


charge dans Le registre spécifié la C-valeur de l’etone. Cette macro 
est expansée en : | 


(H «registre» [4 :MEM '«atome»1) 


(PUTVAL «registre» «atome») 


met dans (а C-valeur de l'atome spécifié, (а valeur du registre. Cette 
macro est expansée en t: | | | 
«registre» [+ :МЕМ *<atome>l) 


(ӘРІ АСА «regs» <dest>) 
met ie registre «regs» dans Le CAR de l’objet «dest». Cette весго est 
expansée en } 
ві l’objet «dest» est 


„= un registre | (HRLM «regs» :MEM <dest>) 8 
- un atome (HRLM «regs» [+ (EN ’atomel) 


(FPLACD <regs> <dest>) 


йеї le registre «regs» dans Le CDR de l’objet «dest». Cette macro est 
expensée en : 
sl l’objet «dest» est 

- un registre (НААМ «regs» :MEM «dest»? 

- Чп atoms — (НААМ ер [+ :MEM 'atomel) 


mem «atome») 


pet NIL dens Le заты" de atome spécifié. Cette macro est expansée 
en t | А . | | 
Ce " (HRRZS 0 [+ :MEM '<atome>1) 


WI Ses. TS 45 езі 
g e 
a `... a . E DR Р. a. 


12.: 2 Points D' entrée Spéc leux 


Le compilateur utilise un certain nombre de points d'entrée spéciaux dans 
LU interprète. Les noms de ces points d'entrée sont ашыды préfixés par le 
caractère " 2 " et sont bien évidemment connus de LAP, | 


12.2.1 Retour Standard De Fonct ion Е 


n TIC" 
pst L'adresse d'une instruction (POPJ P) 


TRUTH 


est l'adresse des retours vrais des ыны Ette correspond eux deux 
instructions : (МОУЕІ 1 °T) (POPJ | | | 
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«FALSE | 
est L'adresse des retours faux des prédicats. Elle correspond aux deux 
instructions : (SETZ 1) (POPJ Р). | 


t CRAZER 


est L'adresse de création du nombre М9 0. Elle correspond aux deux 
instructions : (МОУЕІ 1 70) (POPJ Р). 


t CRAONE | E 
| . est l'adresse de création du nombre 1. Elle correspond aux deux 
instructions : (МОУЕІ 171) (РОРЈ P). 


12.2.2. Création De Nombres - 


:CRANUM ` mE 

crée Le nombre dont La valeur se trouve dans Le registre Аб; еи 
retour de ce sous-programme, А1 contient un pointeur sur Le nouveau 

"hombre créé. Cette routine se termine par un (РОР) P), il faut donc 
l’appeller par (PUSHJ P :CRANUM). Le PUSHJ étant une instruction très 
lente, le compilateur utilise de préférence te point d'entrée suivant et 
ne se sert de :CRANUM qu'en cas de "JRST hack". | | 


:%СНАМВ 
est identique au point d'entrée précédent mais est appellé par (JSP L 
{ ЗСААМВ) ce qui est plus rapide. Cette routine se termine donc par un 


(JRST 0 O L). 
t SCRANP ЖЕ 8 
|. correspond aux 
l'eppel ` =- deux instructions 
(JSP |. :%СВАМР) | | . (JSP L. :SCRANB) 


. (PUSH P A1) 


ce point d'entrée ne sert donc qu'à réduire Le code produit 
раг le compilateur qui doit souvent empiler Les nombres qui 
viennent d'étre créés. 


12.2.3 Points D'entrée Spéciaux Des SUBR - 


Le Lancement des NSUBR étant un dispositif plutot lourd (voir Le point 
d'entrée :NSUBR), le compilateur utilise des points d'entrée spécieux 


pour Les NSUBR courantes qui ne possèdent qu'un ou deux arguments, ce qui 
évite de créer des Listes d'arguments évalués. 


Le compilateur dans d'autres cas va "casser" des appels de type NSUBR en 
une suite d'appels de 15088. Par exemple Le forme (PRINI A B C) sera 
compilée (PROGN (:$PRIN1 A) (:ӚРБІМІ B) (:$PRIN1 C), :$PRIN1 étant Le 
point d'entrée de la fonction РВІМ№ à un argument évalué. 


En outre, des points d'entrée spéciaux ont également été créés pour des 


fonctions qui, possédant un nombre fixe d'arguments, n'en utilisait en 
général qu'un nombre réduit. 
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{$15ТАТИ5 
point d’entrée 
(: SISTATUS est 


: $2STATUS 
point d'entrée 
(:$2STATUS est 


: $3STATUS 


point d'entrée 


С; 635ТАТЦИ5 est 


de La fonction STATUS qui ne possède qu’un argument 
considérée donc comme une SUBR à 1 argument). 


de La fonction STATUS qui ne pu que deux arguments 
considérée donc comme une SUBR à 2 arguments), 


de іа fonction STATUS qui ne possède que trois arguments 
considérée donc comme une SUBR à 3 arguments). 


est L'adresse de (а fonction PLUS à deux arguments qui doivent se trouver 


respectivement 


dans les registres 1 et 2. Се point d'entrée est utilisé 


quand La fonction PLUS n'est pas utilisée an tent que NSUBR. 


t $DIFFER 


:$TIMES 


est l'équivalent de l'adresse :$PLUS, pour la NSUBR DIFFER. 


est l'équivalent de L'adresse :$PLUS, pour (а NSUBR TIMES. 


s $QUO 


est l'équivalent de l’ adresse :SPLUS, pour la NSUBR QUO. 


$ SREM ` 


MAX | 


3 SMIN 


est l'équivalent de l'adresse : SPLUS, pour La NSUBR REM. 


est l’équivalent de l'adresse :$PLUS, pour Le NSUBR MAX. 


est l'équivalent de (l'adresse :$PLUS, pour ta NSUBR MIN. 


t SGT 


est l'équivalent de l'adresse :$PLUS, pour ta NSUBR GT. 


: $GE 


est l'équivalent de (l'adresse : SPLUS, pour la NSUBR GE. 


:SLE 


s SLT 


est l'équivalent de l'adresse :$PLUS, pour La NSUBR LE. 


est l'équivalent de L'adresse :$PLUS, pour ta NSUBR LT. 
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t SPRINI 
est le point d'entrée de la fonction PRINI à 1 argument qui doit se 
trouver dans Al. Le compitateur utilise ce point d'entrée pour tous les 
appe ls de la fonction PRIN1 еп macrogénérant s'il y a Lieu une suite 
d'appels de la fonction :$PRIN1. 

ex : L'appel (PRIN1 X (FOO L) '= (BAR L)) sera macrogénéré 
(PROGN (:$PRIN1 X) C:SPRIN1 (РОО L)) (:$PRIN1 '=) (;:$PRIN1 (BAR L))) 


: SPRINT 
est Le point d'entrée de {а fonction PRINT à 1 argument qui doit se 
trouver dans Al. Le compilateur utilise ce point d'entrée pour tous les 
appels de la fonction PRINT en macrogénérant s'il y a lisu une suite 
d'appels de (а fonction :$PRIN1 et :$PRINT. ` P | 

ex t X^ el (PRINT X (РОО L) "e (BAR L)) sera macrogénéré 
(PR (z$PRIN1 X) G$PRIN1 (РОО L)) (:$PRIN1 '„) (G$PRINT (BAR L))) 


= . + = 


: SPUSH 
est le point d'entrée de la fonction PUSH à 1 argument qui doit se 
trouver dans A1. Le compilateur utilise ce point d'entrée pour tous les 
appels de la fonction PUSH en macro-générant s’il y а tieu une suite 
d appels de la fonction :$PUSH. : амы 


ex t l'appel (PUSH X Y Z) sera macro-généré 
(PROGN (1$PUSH х) (:$PUSH Y) (:$PUSH Z5) 


i SPOP 
| est (е point d'entrée de Lla fonction POP sans argument. :$POP se 
comporte donc comme une SUBR sans argument. 


t STERPRI 
est le point d'entrée de la fonction TERPRI sans argument. :$TERPRI se 
comporte donc comme une SUBR sans argument, | 


: SSPACES 
est le point d'entrée de La fonction SPACES sans argument.  :$SPACES ве 
comporte donc comme une SUBR sans argument. 


12.2.4 Fonctions Spéciales De L' interpràte - 


t$MAP1 : SMAPN : SMAPC1 : SMAPCN 
ces points d'entrée sont utilisés pour exécuter les fonctions de type MAP 
ou sans passer par (а fonction APPLY. Ils peuvent être utilisés 
2 le compilateur connait Le type de La fonction à appliquer eux 
éléments successifs de la liste. Ces fonctions peuvent étre soit des 
fonctions standards, soit des fonctions compilées de type FUNCTION. Si 
cette fonction est du type 1/2/3SUBR le point d'entrée utilisé est :$MAP1 
bu :$MAPC1 sinon (е compilateur utilise le point d'entrée :$MAPN ou 
:1$MAPCN. — L'exécution de ce type de MAP est fortement accéléré par cette 
possibilité. Ces points d'entrée attendent ta Liste dans le registre ] 
e&t (е nom de La fonction dans le registre 2. 


Par exemple le point d'entrée :$MAPC1 correspond à la séquence : 

$МАРС1 CHRRZ AS (+ :MEM 5) A2) % sauve l'adr. de Lancement de la fonction. 
rcd Р А5) 
(PUSH P A1) ; sauve la Liste d'argument. 
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(JAaST 0 SMAPC4) 

SMAPC3 (UNCONS А1 А1 АЗ) 
(MOVEM АЗОР) 
(SETZB A2 A3) 
(PUSH) Ра -1 P) 
(MOVE 


| А1 0 P) 
SMAPC4 (JPLIST А1 SMAPC3) 
| (SUB Р ЖТ) 
|^ (РОР) P) 
її [2 2] 


élément suivant de А1. 

sauve (в reste. | 

pour Les 2-3SUBR. 

on lance La 1/2/3SUBR. 

puis on récupère le reste de la liste. 
ya encore des éléments. 

dépile le reste et l'adr. de lancement. 
c'est fini. 

pour repositionner La pile 


ve vo DO 99 99 wë 9 че ve 


$ NSUBR 

ce point d'entrée est utilisé pour lancer les NSUBR de L’ interprète ои 
bien les vôtres. Les NSUBR demandent que teurs arguments, évalués, 
soient rassemblés en une liste se trouvant dans le registre Аб. Ceci est 
fait automatiquement si 1а pile est chargée de la manière suivante : I1 
faut empiler d'abord un mot contenant dans sa partie gauche (а valeur -1 
et dens sa partie droite le nom de La NSUBR à Lancer. Les arguments sont 
alors évalués un à un et leurs valeurs sont empilées sauf le dernier qui 
reste dans le registre 1. Puis le sous-programme :NSUBR est appellé via 
le registre L, au moyen d'un JSP. 


ex: macrogénération de l'expression 
(TIMES 7 (STATUS 4 3 2) 8) 


empile (ХЫП -1 TIMES) ; 


(PUSH : T1) 
(PUSH :12) empile la valeur 7 ; 
(PUSH : T3) empile (XWD -1 STATUS) ; 


: T5) empile la valeur 3 ; 
'2) le dernier argument 
de STATUS ; 

3NSUBR) ; appel de STATUS ; 

'8) ; le dernier argument 

б de TIMES ; 

:NSUBR) ; appel de TIMES ; 

; Table utilisée cer le PDP-10 
ne p pas l'instruction 
PUSH immédiat !! ; 


$ 
; 
z ; | 
:Т4) ; empile la valeur 4 
; 
t 


Pa 
I 
Tr rat = 


iti (XWD -1 TIMES) 


n 7 
173 (XWD -1 STATUS) 
214 74 
#15 73 


Ce genre d'appel est plutôt lourd et encombrant, (е compilateur essaie 
d'éviter cela dans le cas des NSUBR utilisées fréquemment et qui n'ont 
qu'un ou deux arguments. 


Қ mc О mE О О m 
. ce point d'entrée est équivalent à :NSUBR suivi d'un POPJ. 


tSBIND1 :SBIND2 :SBIND3 :SBIND :FSBIND 
ces points d'entrée permettent d'effectuer les Liaisons dynamiques des 
arguments formels à l'entrée d'une fonction dans Le cas où il faut 
préserver Les environnements, Сез modules après avoir sauvé Les 
anciennes valeurs des paramètres formels dans (а pile et avoir (16 (ев 
parametres actuels, vont empiler l'adresse du module qui déliera ces 
paramètres formels, ce qui permettra de retourner de ces fonctions de 1а 
manière habituelle, i.e. per un (POPJ Р), 
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IL faut de plus fournir іе nom de (а fonction pour que ces modules 
puissent traiter Les cas de tail-récursion et de co-tail-récursion dans 
les fonctions compilées qui lient les variables. 
:SBIND1 est utilisé dans Les SUBR à 1 argument, :SBIND2 dans Les SUBR à 2 
arguments, :SBIND3 dans Les SUBR à 3 arguments, :SBIND dans Les SUBR à N 
arguments et :FSBIND dans les FSUBR. 
La forme des appels de ces modules est la suivante : 

(JSP L :SBIND1/:SBIND2/:SBIND3/:SBIND/:FSBIND) 

(XWD nom de (а fonction Liste d'arguments formels) 


ESBIND :ESCAPT | 

permet de gérer les appels des fonctions d'échappements. Le définition 

d'un ESCAPE s'effectue au moyen de : 
(JSP L :ESBIND) 
(XWD étiquette de fin d'ESCAPE nom du ESCAPE) 

. Un appel d'une fonction d'échappement s'effectue : 

(MOVEI A2 le nom du ESCAPE) 
(JRST 0 : SESCAPT) 


12.3 Les Fonctions Standard Du Compi tateur 


Toutes les fonctions standard qui vont être décrites sont de type AUTOLOAD 
(i.e. il n'est pas nécessaire de charger le fichier qui les contient, Le 
système le fera pour vous au premier appel de l’une de ces fonctions). 
ordinaire elles se trouvent dans Le fichier : | | 
(SYS (COMPIL . VLI)) pour la version interprétée 
(SYS (COMPIL . VLA?) pour la version compilée lisible 
(GYS (COMPIL . VLO)) pour la version chargeable. | 


(COMPILES <s>) [EXPR à 1 argument] 


crée une Liste contenant les instructions LAP nécessaire à l'exécution de 
(а S-expression «s». COMPILES ramène cette Liste en valeur. Cette 
fonction est principalement utilisée pour tester Le fonctionnement du 
compilateur. | 


(COMPILE «at» «svi» <sw2>) [FEXPR] 


est la fonction de compilation en mode conversationnel. Cette fonction 
compile, assemble et charge une fonction quelconque. La fonction à 
сотр і (ег de nom «at» doit posséder une définition de type EXPR ou ҒЕХРВ. 
L’ indicateur «svi» est égal à T si vous voulez un Listing du résultat de 
(а compilation; l’indicateur sw2 sera transmis au LAP. 


(COMPILEFILE «filout» «filin» «sw1») [EXPR] ` 


Cette fonction crée un fichier de sortie, de spécification «filout», 
contenant La traduction sous forme d'appel de {а fonction LAP, de toutes 
(ев définitions de fonctions contenues dans le fichier d'entrée de 
spécification «filin». Le fichier ainsi obtenu pourra être relu per 

. Les S-expressions non compilables sont remises (au même endroit) 
dans le fichier de sortie. 
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(COMPILEF «file» <sul>) (ЕЕХРАЈ 


est utilisée pour ta compilation d'un fichier standard. (СОМРПЕРҒ «file» 
<swl>) est la forme abrégée de 
(COMPILEFILE ? (DSK (<file> . VLA») 
’ (DSK (<file> . VLI)) 
<sw1>) 


(COMPILOPTIONS «il» .... <iN>) [EXPR à М arguments] 


permet de positionner certains indicateurs internes contrôlant le 
fonctionnement du compilateur. Les indicateurs sont DANS L’ORDRE : 


- ?hacks : qui indique de valider [а dernière passe d'amélioration 
Locale du code produit par le compilateur. Cette dernière passe étant 
sans..danger,. оп peut utiliser.cet indicateur par tous temps; ¿L n'est 
utilisé en principe que pour (а maintenance du compilateur. 


- ?ssec : qui permet d'effectuer la recherche des sous-expressions 
communes à l'interieur des fonctions compilées. Cette recherche étant 
fort Longue et n'apportant que peu de résultats, il est conseillé de пе 
pas positionner cet indicateur. 


- ?slonum : qui indique au compilateur d'utiliser les routines de 
L’ interprète pour exécuter (вв fonctions arithmétiques. Cette option 
fait gagner de la place au niveau du code produit per le compilateur mais 
ralentit son exécution. 


- ?open : qui indique de macrogénérer au maximum les fonctions standard 
et donc de пе pas passer par les routines de l'interpréte. Tout comme 
l’option précédente, la présence de cet indicateur va rallonger еї 
accélérer іе code généré. 


- ?ckarray : ^ indique qu'il faut passer par les routines de U interprète 
our calculer Lee indices des tableaux. Si cet indicateur n'est pas 


jositionné, les indices sont calculés directement par le code généré еї 
ne sont pes testés. 


~ ?filap : indique а la fonction COMPILEFILE qu’il faut produire un 
fichier de sortie d'extension .LAP (qui est L'ancien format des fichiers 
assembleurs). Cette option a été introduite pour des raisons de 
compatibilité et ne doit plus être utilisée. 


s Voici la Liste des OPTIONS standard ; 
DEET 


; ?hacks : utilisée pour tester Le compilo. ; 


IL % ?ssec : pour calculer les sous-exprs communes ; 
IL ; ?slonum : on utilise les nombres lents ; 
Т ; ?open : оп macrogénère au maximum ; 
NIL ; ?ckarray : on contrôle les indices des tableaux ; 
| NIL і% ?filap : on ceré une fite .LAP (sinon .VLA) ; 


(COMPILEND) [EXPR à 0 argument] 


récupère la place occupée par les fonctions du compilateur. COMPILEND 
remet Les indicateurs AUTOLOAD des fonctions standard et ramène Le nombre 
de doublets libérés en valeur. Cette fonction enlève de plus tous les 
indicateurs posés per le compilateur. | 
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12.4 Exenpies Dr ut LL lest lon Du Compitateur 


$ 1 KWOTE VS Gem авео а vm mie pm pe em e e ege Van wan Gan va wan umo Gan van өле aun «м E e wan кіш өзе wan wam wan ama aan e wap uhm wam uma E әке wa wan wn ge ap wn mms 0 
(DE KWOTE (L) (IF (LISTP L) L IQUOTE Ui 


FUNCTION LENGTH < 15 
#LAP LENGTH = 9 


j 

HI 
(CAML 1 :BLISD 
(POPJ P) 

6101 
NE A FREE) 


Сат De | es EM. EREE) 


on Bee 1) 


. (154203 KWOTE SUBR 1) 


t£ 2 ҒАСТ-------------------- 


(ENTRY KWOTE SUBR 1) 


(ENTRY KWOTE SUBR 1) 
1 BLIST) 


(EXCH FREE 1) 
(POPJ P) 


c — uu wasa Wawa CUM emm GU bp UND ge UU) GU “олын d kuma vg Gata ER GENS TD «ій (ub ERA GU mara, QUUD geg cuu manis «лы waya, UA wama, dem 


(DE FACT (N) CIF (ZEROP № 1 (TIMES М (FACT (SUB1 IDDD 


FUNCTI 
ыр 


ӨТТІ 
(ENTRY FACT SUBR 1) 
(JRST 0 :CRAONE) 


| LENGTH = 19 
TH = 11 


6103 
(PUSH P 1) | 
(MOVE ° МЕМ 1) 
(SUBI 
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(END) 

154214 | 
154214 306 1 00 13760 
154215 254 0 00 403145 
154216 

154216 2611700 1 
1257 2005 01 2547 
94220 2755 00 1 
154221 265 1300 403152 
54222 260 17 00 154214 
94223 262 17 0 0 2 
54224 2005 01 2547 
54225 2205 02 2547 
154226 2540 00 403126 
154227 


“(154214 FACT SUBR 1) 


(DE 101 (L) (IF (NULL L) NIL 


FUNCTION LENGTH = 12 
ЖАР LENGTH = 1 


$ 
353553 
(ENTRY 101 SUBR 1) 
(POPJ P) 
(END) 
54227 
24227 263 17 00 0 
54230 


“(158227 101 SUBR 1) 


Ki 10 . 3 


TUS FACT SUBR 1) 
(CAIN 1 '0) 

ch 0 :CRAONE) 
(PUSH Р 1) 


(JSP L. :$CRANB) 
(PUSHJ P РАСТ) 


(IMUL 5 :MEM 2) 
(JRST 0 : CRANUM) 
(END) 

L)) 


(ENTRY ID1 SUBR 1) 
(POPJ P) 


Manuel de Référence 


p Е001-----------——----—--—-----—---—---———--—------—---—-—- MEER 
(DE Ғ001 (X) L'SETQ X DT CDR X11) 


FUNCTION LENGTH = 17 
АР LENGTH = 17 


(ENTRY Ғ001 SUBR 1) 
(HRLZI 2 0 1) 
(EXCH 2 :MEM FREE) 


(EXCH FREE 2) 
(HRLI 2 'CDR) 
(EXCH 2 :MEM FREE) 


(EXCH PEE 2) 
(HRLZ 

(EXCH 5 EN FREE) 
XCH FREE 2) 


2 1) 
(EXCH 2 E FREE) 


(HRLI 1 'SETQ) 
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EXCH 1 МЕМ FREE) 


EXCH Fr FREE 1) 


(END) 

54232 

154232 5152 01 0 
54233 250 2 0 16 2547 
54234 250 16 00 2 
154235 505 2 0 0 1452 
54236 250 2 0 16 2547 
94237 250 16 00 2 
54240 514 2 00 2 
54241 250 2 0 16 2547 
54242 250 16 00 2 
54243 504 2 00 1 
154244 250 2 0 16 2547 
154245 250 16 0 0 2 
154246 201 1 02 0 
154247 505 1 00 2046 
154250 250 1 0 16 2547 
154232 250 1600 1 
54252 263 17 00 0 
154253 


(154230 F001 SUBR 1) 


(DE XGQP (X V Z) 


Manuel de Référence | 


(ENTRY Fo01 SUBR 1) 
(HRLZI 1) 
(EXCH. 2 ME FREE) 
(EXCH FREE 2) 

(HRLI 2 *CDR) 

(EXCH 2 :MEM FREE) 
(EXCH FREE 2) 

(HRLZ 2 2) 

(EXCH 2 E FREE) 


T EL 

(EXCH 2 MEM FREE) 
(EXCH FREE 2) 
(MOVEI 1 0 2) 
(HRLI 1 'SETQ) 


(EXCH 1 :MEM FREE) 
(EXCH FREE 1) 
(POPJ P) 


(BAR X v>) (ABS (DIFFER (SUB1 X) Y)) (PRIN1 Z)) 


FUNCTION LENGTH = 24 
AE (E - 18 


mn 
СЕРІ 
(XWD 


(ENTRY IO Бе 2: 


PUSHP 5. 
(JRST 0 G108) 
(GETVAL 1 7) 
(PUSHJ P :$PRIN1) 


(A0SG 0 O P) 
(JRST 0 6107) 
(SUB P i ) 
CUN. 
(JRST 0 EVAL) 


6107 


6108 


ыы тт 


# T BL 
"emt LENGTH «1; 


WD 1 1) ; 
' (BAR X Y)) 
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XT1 (XWD 11) 

(END) 

12455 

54253 265 1300 414760 
154254 6030 61074 
154255 554 15 0 0 15265 
154256 2005 01 2547 
Эси 2755 00 1 
54260 554 20 0 0 16027 
154261 2745 02 2547 
154262 214 5 00 5 
Емін 2105 00 5 
|54264 261 17 00 5 
94265 254 0 00 0 
94266 | 

154266 554 16 00 11751 
1257 2601700 404116 
54270 

154270 3570 0170 
i 254 0 00 154266 
54272 274 17 0 0 0 
154273 201 1 0 0 60721 
154274 254 0 00 405251 
154275 

154275 1 1 


154276 
(154253 XGQP SUBR 3) 


МОР 10 . 3 Manuel de Référence 


(ENTRY XGQP SUBR 3) 


(HLRZ 1 GMEM XD) 
(MOVE 5 WEN D — 
(SUBI 5 1) 

(HLRZ 2 (: МЕМ "Ү)) 
(SUB 5 :MEM 2) 
(MOVM 5 5) 

(MOVN 5 5) 

(PUSH P 5). 
(JRST 0 G108) 

6107 

(HLRZ 1 GMEM 'Z)) 
(PUSHJ P :$PRIN1) 
6108 


(A0SG 0 O P) 

(JRST 0 6107) 

(SUB Р %T1) 

(MOVEI 1 ' (BAR X Y)) 
Sc? 0 EVAL) 

(XWD 1 1) 

(END) 
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APPENDICE А 


| ; 
$ CONFIGURATION standard pour VLISP 10 . 3 ; 
$ qui demande en mode conversationnel Le type : 
i 


| de la configuration souhaitee. ; 
4-7 -—-—--------—------------—---—-----—----------—-—-- $ 
CIF 

iia 


XSTATUS 2 27) 
(WHILE (TYS) (TYI)) 
(PRIN1 "Big config ?") 
(TERPRI -1) 
(ASCII (TYI))) 
(MAKLIST "OoYyTt'")) ; pour Oui ou Yes ou Так; 


(CONF IGURAT ION 


$ grosse config pour faire tout marcher ; 


* (DSK (VLISP . SYS)) $ fichier initial ; 
"(CITY (LISPIN . VLI)) { fichier d'entrée ; 
* CITY KLISPOU . LST)) ; fichier de sortie ; 
1000 jy atomes totaux ; 
8000 t nbs standards ; 
400 ; Strings stds : 
25000 ¿ Listes : 
1000 $ pile syst stds : 
9000 $ pile user + arrays ; 

А 2000 ; code ; 

(CONF IGURATION 
t petite config pour les tests simples : 
” (DSK (VLISP , SYS)) ; fichier initial : 
"CITY (LISPIN . VLI)) ; fichier d'entrée ; 
* (TTY (LISPOU . LST)) % fichier de sortie: 
800 ‚ atomes totaux ; 
500 i nbs standards ; 
100 j strings stds ; 
8000 t listes j 
1000 i pile syst stds ; 
600 ; pile user + arrays ; 
200 + code ; 

999999 
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дымда | 10.3 Manuel de Référencé 


SYSIVLISP . INI 
Fichier initial standard de VLISP 10. 3 


GN Gum wana quib dino, atus Que тілді qua gef die Gi» GND ЧЫНЫ ФИР) APE d 2006 Gp дее wam qam, Vals Wasip cti ina «йм quium езе Gam диб (ыйа “дар qum «АШ deg deift. emis жый» (ME mit «лм wina “лді. кір «Шы» емді» Gun дый fe ына фи Шр әрін asap ue epe qi 


Jéróme CHAILLOUX 


épartement d'Informatique 

niversité de Paris VIII - Vincennes 
Route de la Tourelle 75571 Paris Cedex 12 
Tél : 374 12 50 poste 299 


I. R. C. A. M. 
зі Rue St Merri 75004 Paris 
Tel : 277 12 33 poste 48-48 


“қр umm «нә (UE кә am, luum (UM Umm wa қаба gn Gm sme гіне кәне «нша кедір uma GUN wana, Grieg (Rar pin dium wap unm dumis кене анық mmm deg GU алыр GU GA «ні» (ini) (URP Gana «ЙЕ aman d «шіп абай біліу deen Gun «Өлі dium upa Gants Spa, UD алш Gaya, emm. om 


(STATUS 2 0 1 2) ; silence !!! ; 


ve ос чо че ӘС Өс «о «о: чо: «о «о 90 өт «ә Фе 
ee 9-0 «о 490 «о 06 чо фо 99 чо 99 че ее Фе 


$ 
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' 
, ERROR.UBY  ERROR.UDFE  ERROR.UDFA et ESCAPE.I ; 
; Définition des traps erreurs ; 


(DE ERROR.UBV (atome pile p$bind) 
(PRINT "Variable indef inie ç " atome) 
(OR (EQ p$bind -1) 3; s'il уа des "eval-frames" dans ta pite ; 
(PROGN 
(PRINTLEVEL 6) 
(PRINTLENGTH 10) 
| RINT "La ees FONCTION etait : " (LASTCALL 25) 
eni TLEVEL 
| | ІМ wien 2000) )) 
OUTPUT) ` 
(RESET?) 


(DE ERROR.UDFE (fonction forme pile p$bind) 
; Undefined function EVAL 
(ERROR.UDF "Fonction indef nie dans EVAL : ")) 


(DE ERROR. UDFA (fonction forme pile p$bind) 
$ Undef ined. function APPLY ; 
(ERROR.UDF "Fonction indef inie dans APPLY : ")) 


(DE ERROR.UDF (msg?) 
t Fonction générale d'erreur FUNCTION UNDEFINED ; 
(PRINT ne SEHR 
(PRINTLEVEL 6 
(PRINTLENGTH 10) 
(PRINT "La derniere forme etait : " forme) 


(OR (EQ раа ` | 
T "La derniere FONCTION etait +: " (LASTCALL 3))) 
енімен 50) 
ren 2000) 
(OUTPUT 
(RESET) 


(DE ESCAPE. І (numero pile p$bind tu IT) 
t dens ce treitement le numéro n'est pas utilisé 
(TERPRI) 


Anprese Lon de l'avertissement 
(PRINT "Je rentre dans un TOPLEVEL Esc 
(PRINT "Pour en sortir, commence une Ligne par «META-ESPACE». ") 


1*9 


(STATUS 11 ”/!) y changement du prompt top-level ; 
(TEREAD) ; vide Le buffer d'entrée ; 
(UNTIL (EQ (PEEKCH) '/ ) 

(SETQ tu CREAD)) 

(SETQ IT SR (EVAL 10000) t pour conserver le IT feature ; 
(STATUS 11 '/ { restaure Le prompt top-level ; 
(PRINT "Ca н $ vers de nouvelles aventures 4 
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; š 
nt FILESPEC s spécification d'un fichier rr: 


(DE FILESPEC (oldspec ;; spec tok next next dev filename ext prj prg pro) 
; traite une spécification de fichier générale. ; 
{ SL «spec» est une liste ou un atome ne fait rien mais ; 
$ бі «spec» est une chaine, ramène la forme normale VLISP ; 
ex : "деу: filname.ext [pr j.prgl<pro>" est traduit en ; 
(dev (filename . ext) (prj . prg? pro) ; 
(sera spec oldspec) 
(IF (LISTP spec? (LESCAPE spec?) s 
(IF (LITATOM spec) (LESCAPE spec?) И 
(IF (NUMBP spec) (LESCAPE (FILESPECERROR) ) ) 
% {а spécification est donc une chaîne ; 
(STATUS 5 8) our les conversions octales ; 
(SETQ spec (MAKLIST spec) 
[next ”((/: . filename) (/. . ext) (/[ . prp 
(/, . prg) (/1. pro) (/< . pro) 
next 'filename) 
(HHILE spec | ` Е 
(SETQ tok О) 
(WHILE (AND spec (МОТ (МЕМО (CAR — беу: /. /t /, /] Ze />)))) 
(SETQ tok (CONS (NEXTL spec? tok))) 
(SETQ next 
(QR (IF (NULL spec) next) 
(CASSQ (CAR spec) '(( /: . dev) (/. . filename) (/< . pro) 
С. ext) (7, . prp (71. prg) (/». aiu odd. 
(IF (CAR next) (LESCAPE (FILESPECERROR) 2 
(SET next (IMPLODE (REVERSE  tok)))) 
(SETQ next (CASSQ (CAR Te іпех+) ) 
(IF (SETQ tok (CASSQ (CADR spec? tinext)) 
(SETQ spec (CDR spec) 
next tok)) mu 
(SETQ spec (CDR spec))) ES | 
(STATUS 5 10) ; сенче! еп mode décima en entrés ; 
(pro [dev [fL Lepage š ext] іргі. pro prol) 
((OR prj prg) [dev [filename . exti [prj . prg11) 
(T [dev [filename . ex<t]]))) | 


Ke a () 
eu une erreur, on redemande Le nom du fichier ; 
(PRINT "FILESPEC specification incorrecte dans :" oldspsc) 


(PRIN1 "Тере la nouvelle specification") СТЕАРАТ. bat 
(FILESPEC CREADSTR))) 
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% 
$$; FILE : Acces au systeme de gestion de fichiers TT 


(DF FILE (ста ;; file status) 


À 
y appel (FILE «operation» «ler fichier» <2eme fichier») ; 


d evec <operation> non-evalue ; 


«кта file (FILESPEC (EVAL (CADR ста) ))) 
(SETQ status 


(SELECTQ (CAR cmd) 
$3 
$ différentes «opérations» ; 
$3 
(READ 
; sélection du fichier d'entrée ; 
; syntaxe : (FILE READ «fite» NIL/T) : 
équivalent à (INPUT file) si l'indic = NIL ; 
ne traite pas les directory à la ETV si indic = T z 
(OR (EQ (CAR file) 'TTY) (STATUS 2 115) | | 
(OR (NUMBP (FILOP [1 11 fite») 
(IF «АМО «NOT (САПОВ cmd?) % teste de L’ indicateur ; 


(EQ (PEEKCH) 'C)) ; saute le directory de і’ IRCAM ; 
(UNTIL (EQ (READCH) '/;))))) 


(CREATE 
| s sélection du fichier de sortie ; 
; sl le fichier existait déjà, са; 


provoque une erreur ; 
(FILOP [2 21 file» 


(WRITE | 
£ ouvre le fichier file en sortie ; 
$ équivalent à ta fonction OUTPUT ; 
(FILOP (2 31 fite») 


(APPEND 

jy ouvre le fichier file en sortie ; 
$ sl le fichier existait déjà, Les sorties ; 
Бе feront en FIN de celui-ci : 


(FILOP І2 61 file)) 
(CLOSE 


; ferme un fichier. syntaxe m ; 
+ (FILE CLOSE О <n>) ; 
; ауес <п>=] pour Le fichier d'entrée 


j avec <п>«2 pour le fichier de sortie 
(FILOP [(CADDR cmd) 7120) 


(CHECK 
; chekpoint le fichier de sortie ; 
y і.е. préserve l'état courant de ce fichier ; 


équivalent à (FILOP CLOSE О 22; 


suivi de (FILOP APPEND шаны er EUR) 3 
(FILOP [2 \101)) 


МЕн 
hange Le пот du fichier file en file2 ; 
(FILOP [3 M3] file (FILESPEC (EVAL (CADDR cmd))))) 
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«DELETE 
; détruit Le fichier de nom file ; 
(FILOP ІЗ M41 fite») 


-D» 
(IF (NUMBP status) 
(PROGN 


(OUTSTR (CONCAT "FILE : " (CAR cmd) " " 
((+ status 2) '( | 
"Fonction inconnue" 
"Fichier inexistant" 
"Directory inexistant" 
"Protection trop forte" 
"Fichier en cours de modification" 
"Fichier existant" 
"Sequence illegale")))) 
(TERPRI) 
(RESET?) 
file + ramene file р 9000) 
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салалы - tss... 2 osos va ccc 


t 
t$; MACROS STANDARD ;;; 


; Pour des liaisons ашы сан de variables ; 


(DM LET (ts) (RPLACB ts 
(CONS (MCONS LAMBDA (MAPCAR (CADR ts) "САН) (CODR Lei" 
(MAPCAR (CADR ts) ?CADR)))))) 


; Pour des liaisons dynamiques de fonctions ; 


(DM WITH (D 
(RPLACB L 
[' PROGN | 
L'ADDPROP (QUOTE (CAADR 121 [LAMBDA . (CDADR 121 EXPR 
['PROG1 ['PROGN . (CDDR D1 | 
['REMPROP [QUOTE (CAADR DJ ЕХРВ111)) 


; les ESCAPEs INFINIS : 
$ (ESCLOOP «at» <51> ... «sN») == 
t (ESCAPE «at» (WHILE T «si» ... <sN>)) 


(DM ESCLOOP (1) 
(RPLACB 1 
L'ESCAPE (CADR 1) 
['HHILE T . «CDDR 121102 


; et Les REPEAT UNTIL ; 
(DM REPEATUNTIL Cu 
(RPLACB L 
ГИНЕ ['PROGN . (CDR 0122. 


$t (BACKTRACK nom ver? essail essai2 .:. essaiN ) ; 
(DM BACKTRACK (call %; non-schec (vars lvats tcleuses | 
inewvars lrestore) ` ` 
(SETQ nom-echec (CADR call) 
lvars (MAPCAR (CADDR call) (LAMBDA OO (IF (ATOM x) A Cam Х)))) 
tvais (CADDR call) 
clauses (CDDDR call) | 
lneuvars (МАРСАН Lvars (LAMBDA 00 (GENSYM 'SAV// X))) 
irestore (CONS 'SETQ 
(LET ((X Lvars) (Y ineuvars)) 


(IF X «MCONS (NEXTL X) SE Y) (SELF À үз; 
(RPLACB call 


['ESCAPE '$ESSAI$ 
(CONS (МСОМ5 LAMBDA іпешуагв 
(NCONC1 (LET (4X 1сівиѕеѕ) ) 
(IF X C(MCONS ['ESCAPE nom-echec 
L'SESSAIS (NEXIL 013 
lrestore 
(SELF X)))) 
""ЕСНЕС)) 
Lvals)])) 


wé 
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$ 
rr SYNONYM 


(SYNONYM 
(SYNONYM 
(SYNONYM 
(SYNONYM 


(SYNONYM ' 


(SYNONYM 
(SYNONYM 


VISP 10 . 3 


dagegen 


Me uel 


At 


"GTZ 'GZP) 
"well 'ZEROP) 
"НО 'NEROP) 
"0 'GZP) 

«0 'LZP) 

>=) 'GEZP) 
*««0 'LEZP) 


; pour rendre Harald HEUREUX : 
; tout ça pour faire comme en SAIL ! : 


$:; Macro-caractéres %;; 


O ТН; 
O 70; 
О Шш. 
() (STOP?) 
() tP; 
O ұт; 
O 376; 


” LAMBDA) | 
(STATUS 1 5) (STATUS 20 (STATUS 2 5) NIL) 
['LIBRARY (READ 1D. - 


['PRETTY (READ)1) 
['PHENARETE (READ)1) 
(DISPLAY ' (M77 7)) */4) 


$:: Utilise le nouveau trait RUN ;;; 


(ОМС /1 O st; 
(DMC /6 О LT 


535$ 


Fonctions spéciales sur DATA-MEDIAS 


(RUN * (5ҮЅ (WHO . SAV)))) 
(RUN '(SYS (E . SHR)) - ` 


s.. 
УХ.» 


(DE TTYDMP О , 
. 4 teste si le terminal utilisé est en TTY DM mode 3 


4 ramène NIL si faux (sinon ramène un nb 909) us 
(LZP (TRMOP \1043 O O0») 


(DE ESCAPECH (c n) E 
; Simule l'envoi d'un caractère ESCAPE n с; 
(TRMOP N33 0 (PLUS М (SWAP (CASCII ennnn ` 


(DE BREAKCH (c n) 
t simule l'envoi d'un caractère BREAK n 
(TRMOP N33 0 (PLUS N (SWAP (LOGOR 5400000 (CASCII c)» 


ui WHOLINE (n) | 
affiche La WHO Line du job п; 
(ESCAPECH "H m» 
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Mn c r n[F_q s —.- era aram — DEN nes: 2% 


$$: Autres fonctions sur fichiers disque 


(DF DUMPF (¿s +; filout 
ç (DUMPF «file» <fnl> ... <fnN>) ; | 
з cré un fichier «file» contenant les définitions ; 
$ des fonctions «fni» ... «fnN» : 


(SETQ filout ['DSK f(NEXTL is) . 'VLIJ О 50561) 
(OUTPUT filout) 

(WHILE ts (EVAL І?РБЕТТҮ (NEXIL 16571929 

. XQUTPUTD 

filout) 


(DE TYPE (fili ` 
$ Simule (а commande moniteur .TYPE file ; 
(FILE READ filin) 

(STATUS 17 (ASCII \15) 2) | 
(WITH (EOF О (TERPRI) (INPUT) (&eof)) 
(ESCLOOP &eof (PRINC CREADCH)))) 
vi 17 (ASCII M55 0) 

filin 


(DF HELP (file) 


LL Simule la commande moniteur : „НЕР file ou .HELP VLISE ; 
(ТҮРЕ ['HLP [COR (CAR file) 'VLISP) . '*HLP]1)) 


> é. 
”:? 


t Ces fonctions permettent de connaitre le nom et ; | 
; l'identification des gens qui travaillent sur le PDP 10 ; 


(DF whois (name ;; ligne jelai) 
; (HHOIS nom) ramene Le nom du gars ; | 
; са fait ca intelligement : ; | 
; (WHOIS JEROME? -> "JER Jerome Chailtoux" ` 
% 
$ 


Фе 


(WHOIS JER) -> "JER Jerome Chailloux" P 
(WHOIS CHAILLOUX) -> "JER Jerome Chaitloux" Ü D 
£ (WHOIS JE) -> tous tes noms qui commencent par JE ; ` 
(SETQ name (САН name) ) x US | 
(WITH (EOF О (INPUT) (&eof)) 
(FILE READ "SYS:FACT. TXT" Т) 
(ESCLOOP &eof 
(SETQ Ligne (READSTR)) | 
(ESCAPE &uncoup 
(МАРС (IMPLODE «СОМСАТ "<" Ligne ")")) 
(LAMBDA (nom) | О. 
(IF (SAMEPN nom name) | EE 
(&uncoup (PRINT Ligne) (SETQ jetai Т)))))))) 
(IF jelai "ОҚ "Nie ma ...")))) | | | 


(DE uhoisalt О 
$ liste tous les utilisateurs potentiels ; 
; appel : CWHCISALL) c'est tout: 
(МІТН (EOF О (INPUT) (&eof)) 
(FILE READ "SYS:FACT. TXT" T) 
Do BE &eof (PRINT (READSTR) ))) 
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— sm —— P— ——— mn Pen Ís Re nda ги аъ mem mon. 
. + E Ы 


ЧЕГЕ . LIED ы ¿r osem ven 


% | 
; Fonctions aeutoloadables : 


(PATHLIBRARY О 
; directories utiles з ` 
SYS 


(LIS . JER) 
(LIS . PAD 
(LIS . НАН) 
(LIS . 600) 
(LIS . LOU)) 


(AUTOLOAD AID 
PACKFILE 
SIZE 
SIZEFILE) 


(AUTOLOAD DISPLAY 


PYINIT 

DP YEND 

DPYS 

DP YRECHO 

PYRNB 

DPYRSTR 

DPYCURSOR) 
Т (eq 5 (REM (QUO (STATUS 36) 1000) 10)) 
(repeat 50 | 
(print "Non, rien de rien, non, je ne regrette rien"))) 
$ | 


(DE OUTSTR (str) 
; equivalent de 1” Ший 001518: ` 
 і.ө. ecrit sur le terminal la chôine «str- 
as (MAPCAR (MAKLIST str) "СА6СІ!) 'TYO) 
str 
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Н _ ? un 
y final : EES et Lecture си ; 


(PROGN ` 
s init de la taille des ecrans - DATA-MEDIAS : 
(AND СІНСАМР) (STATUS 9 762) 
; edition du numero de version, date, heure et PPN ; 
(SETQ VERSION (VERSION) ) 
(PRINI 
(SETQ VERSION 
(GENSYM 
Ga 


12” N77 (LOGSHIFT MORIS Би -£)) 


овамо \77 (SWAP VERSION) ) 
(MINUS (LOGAND \777777 VERSION) у?) 
(DATE) 
(TIME) 
(GE TPPN) ) 
(STATUS 1 20) CTERPRI) | 
(STATUS 2 27) | MEM 
(PRINT "Pour avoir l'etat de із documentation demande HEL? VLT3P ; 
(STATUS 1 27) | SUNL 
(QUTSTR "SYS:VLISP.INI Loaded. ") 
(TERPRI ) 
(WHILE (TYS) (TYI)) 
(ТЕМ (DIRECTORY О ° (VLISP . IND) | КУ 
; Le fichier DSK:VLISP. INI n'existe pas : passage оп mode TY . 
(PROGN (INPUT) (STATUS. 1 0 1) 'PRET) ` MEME 
ф Sinon le fichier DSK:VLISP.INI existe : 
(FILE READ "DSK: VLISP.INI") ` | 
(STATUS 2 01 2) ; la lecture est silencisuse ix 
(ПЕ EOF О (INPUT) (STATUS 1 G 1) ’PRET:) 29007 
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LED P 


DELLE —— — - cr = 


Fichier initial VLISP 10. 3 (IS. JER) a 


t | % 
% mss um ge MAPS GUA «Әде Vus Can UNA Ф umm UM Wien, um «лла “ұра қын ты GER E тылы uns QE e а тела UAM, «дее — Gm umm ND өй QUE s ай» ue «еле s deg — | 
$ Permet le chargement du dernier fichier édité ; 
$ apres lmpression d'une demande sur TTY $ 


(STATUS 2 0 1 2) 
s silence Íl! ; 
; READFTMPCOR : Lecture du TMPCOR de ETV P 


(DE READFTMPCOR ( fitim 
(SETQ L беліне, it) $; pour TECO а L'IRCAM 'EDS L 
a (LISTP 1) (LESCAPE)) 


А Ам (EQ (NEXTL D 'E) (EQ (NEXTL D 'T) (NEXTL D) 
(LESCAPE ) ) 
(SETQ filin) | 
(4HILE (AND 1 (МОТ (МЕМО (CAR DD '(/. /( 9» 
apt filin [(NEXTL 1) . fitinl)) 
(NEXTL L 
(OR 
CAND 
(EQ (NEXTL 1) ?Уу) 
(EQ (NEXTL 1) 'L) 
(EQ (NEXTL D 7100 
| (LESCAPE ) ) 
(SETQ filin (APPLY 'GENSYM REVERSE tum» 


$ lecture ou non du dernier fichier edite. з — 


(IF 
(SETQ filin (READFTMPCOR) ) 
(PROGN 


(ТЕМ | PEN 
(OR | | mE 
(STATUS 4 29) ; J'arrive de ЕТУ ои; 

(MEMQ | ee 


(PROGN 
(WHILE (TYS) түр) | 
(STATUS 2 27) NET 
(PRIN1 (CONCAT "On charge Ё ш "VEI ?")) 
(TERPRI -1) d 
(ASCII (ТҮІ))) ` 
(MAKLIST "OoYyTt'))) 
(PROGN 
(REMPROP 'EOF EXPR) 
(WHILE (TYS) (TYI)) 
(INPUT) 
Al 1 0 1) 
А PRET 
(INPUT mn 
(STATUS 2 0 1 2 
(DE EOF О 
(REMPROP 'EOF EXPR) 
(QUTSTR (CONCAT "DSK:" filin MA Loaded. ")) 
(TERPRI) 
(WHILE (TYS) (TYD) 
(INPUT) 
(STATUS 1 0 1) 
*PRET)))) 
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чоч ———- co ctt Аз бе. —————— — PPAR ——————— сб ve en gan ét. өше ғаға еге aus = 2 - 


(POUR EVAL XQUTSTR "JSK: VLISP INT eucert 097 
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Manuel de Référence 


` APPENDICE B 


DISPLAY . VLI боз g 


Fonctions de visualisation sur les terminaux 
DATAMEDIA en VLISP 10. 3 b 


gp wau UD nana eg эл== Vui gët REM талы, ep wam, дымы eue VELA «мы» Айы ашы Eër UN mmm UND МЫРЫ pe тыз quim MER sama Md WA wama due DAD wm umb wh rub ue aci MOD жаа UND Чы WD «ғ P чө pri: ml Cem dem ане ` ^ тм que má іс» — BR 


Jerome CHAILLOUX 


Departement d'Informatique 

Universite de Paris VIII - Vincennes 

Route de La Tourelle 75571 Paris Cedex 12 | 
Tel : 374 12 50 poste 299 


].R.C. A. M. | | | ; 
31 Rue St Merri 75004 Paris | 
Tel : 277 12 33 poste 48-48 


AM wawa duis mit NERA WAP qamna pua — шаты anan A — GE. — жыны UD vg, apum mum E suum a Reb MEN wet (жыр + s quum ging p шиш тоқта us quam cum duum uk. tane vum w жа ымы эле 2... — wa dign AD ашы ss °. 


Fonctions de type DPYxxx | ; 
es fonctions permettent d'avoir un controle compte! | 
sur tout l'ecran en particulier le "Line-editor" standard; 

ainsi que (е READ VLISP ne sont plus actifs 


Les seules fonctions standard disponibles sont : | 
. qui Lit Í caract sur Le clavier SANS echó. 
DISPLAY qui envoie une suite de code internes 
a l'ecran | 
PPIOT qui effectue des fonctions speciales 


Toutes ces fonctions sont AUTOLOAD Sur SYS: DISPLAY. VLI 


(мі vm p — da s ame em een det em ae h pm GEN uM en учи (мыл Aa emm Rem (дің w a erst men bet чэй ien kh më ku еді gf met Аы» мылы les чыш es (Мын «лақ ыш Ql v. m... іт. ға — a зды зә. À ' 


ә vo чэ ее Фо ve Фе ^ 49 Ob "9 Фо 0 Чч 99 өс b VE 99 VE әз VO ФЕ ӨС 9 99 Чо TP VE vo ve 


- 
e 


; pour etre ім de tous temps ; 


(PROGN 
(SETQ READ. TABLE —. (READ. TABLE) ) 
(READ. STD) 
PRET) 
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. Manuel de Référence 


à ОРҮІМІТ DPYEND DPYERROR DPYS ; 


(DE DPYINIT O 
$ passe en mode DPYxxx, l.e. efface l'ecran ... | 


(PPIOT 0 2)  ; 4-22-44 sur [а page 2; 
(CALLI \-10 1) ; FREE ; 
RL, "(1177 \36)) ; Жн du master clear ; 


(DE ОРҮЕМО Oo 0/0 
! repasse en mode norma ; 
L.B. (PROGN (DPYINIT) | ФРҮЕМО)) ne fait rien ; 
(CALLI 1-10 0) ; FREEZE 0, ; 
(CALLI -7) } DPYCLR ; 
SALE. 1 6) remet le wholine GC ; 
(TRMOP N33 0 \-377662000000) ; Bau майып! de [NUL]-N d 
(PRINT ? DPYEND) ) 


(DE DPYERROR (msg) 
+ erreur dens une fonction DPYxxx ; 
Б reinit tout et edite le message «msg : 


YEND) 
(PRINT *DPYERROR ': ¿msg) 


(DE DPYS (excursor мусигвог «msg? 
s; edite (а chaine «msg EE un ecran en DPYxxx mode ;- 
| еп position : мусигвог ligne, -xcursor colonne ; 
(DISPLAY (APPEND [X177 M4 XLOGXOR 1140 «xcursor?) — 
(LOGXOR 5140 »ycursor?] 
(MAPCAR (MAKLIST msg) {> SCID») AA) 
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—— a 


wana "pr ` ч нш А r... we Roc AA — má ml =. 


; DPYRECHO DPYRSTR DPYCURSOR DPYRNB : 


(DE DPYRECHO € ;; char) 
ç Lit un caractere et l’echo ; | 
; Suppose wxcursor et мусигвог globaux et — : 
; là position courante du curseur ; 
; ne traite que la visualisation du DEL ; 
(SETQ ¿char (ТҮІ)) 
(IF (EQ "char \177) 
; c'est pas un DEL ; 
(DPYS (INCR Cut ent) мусигвог (STRING (ASC i *char) / 
; c'est un DEL ; 
(DPYS «xcursor «ycursor " ") 
(DECR ^xcursor)) 
echar?) 


e a 


(DE DPYRSTR (^xcursor «ycursor «msg ;; “str «char? | 
; edite le message ~msg a La position «xcursor, ^ycurscr 
; puis lit une chaine de caracteres terminee par ’Feturr’ 
(DPYS «хсигвог «ycursor (SETQ «msg (STRING «msc? 
(SETQ =xcursor (PLUS «xcursor (STRINGL +msg))) 
(UNTIL (EQ (SETQ »char (TY1)) NS) 
(IF (NEQ ^char N177) 
; C'est pas un DEL ; | Жа 
(PROGN 
(DPYS (INCR »xcursor) мусигвог (STRING (ASCII “ehar: 
(NEWL «Str (ASCII ~char))) 
t c'est un DEL ; 
(DPYS ^xcursor "ycursor "Di 
(DECR «xcursor) 
(NEXTL ^str))) 
(STRING (REVERSE «str))) 


ee DPYCURSOR (+xcursor E E 
pe (е curseur en XCURSOR et YCURSOR ; 
to (PPIOT 8 (LOC (LOGOR (LOGSHIFT ^xcursor 18) PEE 
(DPYERROR [' DPYCURSOR "xcursor »«ycursor])): 


(DE DPYRNB (мхсигвог мусигѕог «msg $; мег ^n) 
; imprime le message msg en wxcursor et wycunrsonr ; 
р et lit a la suite (sur la meme Ligne) un nombre decima: : 
+ la conversion s'effectue раг la fonction elle-mence 1 
$ ca ramene le nb convertit (и : 
(SETQ ¿str (MAKLIST (DPYRSTR «xcursor «yoursor msg }) 
(IF (NULL »str) (LESCAPE 0)) 
(SETQ ^xcursor (PLUS «хсигвог (STRINGL «msg) ): 
ф Saute tous les caracteres non significatifs : 
(WHILE (МОТ «МОМВР (SETQ ~n (NEXTL «str)))) 
(IF (NULL »str? (LESCAPE 0))) 
effectue vraiment la lecture : 
(WHILE (МОМВР (CAR ~str)) 
(SETQ ^n (PLUS (TIMES ~n 10) (NEXTL »str)))) 
+ ramene le nb convertit ; 


vn?) 
% epilogue standard ; 


(READ. TABLE READ. TABLE) 
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| HANOI . VLI 
Les Tours de HANOI VLISP 1 
Test de l’utilisation des ecrans DATA MEDIAS 


MIN qun mm amy, aan uim UMP аин» Өлі NÉE өле» apun тш қ» sium waqa әке QUE к, ED GERD ADD mano «ап QUU CRIS QUA Quam V «ль QUD dius Wima ER Өлер (ibo дат» SA tsp qas nb кирт. er NEP ANS apup GA шй UMS UD «ін» wama, que ue quib Gib umo “ік 


Jerome CHAILLOUX 


Zeie tenen! d* Informatique | 
iversite de Paris VIII - Vincennes 
Route de ta Tourelle 75571 Paris Cedex 12 
Tel : 374 12 50 poste 299 


I, R.C. A.M. 
2281 Rue St Меггі 75004 Paris 
Tel : 277 12 33 poste 48-48 


i Cette fonction est d'habitude виг VLISP.INI ; 
(DE. TYPE (filin) 


d ug (а ее moniteur .TYPE file ; 
LE READ fi 
(STATUS 17 (ASCII 115) 2) 
qm (EOF О CTERPRI) (INPUT) (&eof)) 
(ESCLOOP &eof (PRINC (READCH) ) )) 
fim 17 (ASCII M5) 0) 
Lin 


ФЕ PAIG (L XPOS | 33 y) 
{ Imprime Le contenu de toute une aiguille ; 
t cette fonction sert а initialiser tout le monde ; 
(SETQ y ypos) 
t affiche la parti nue de l'aiguille ; 
TA (DIFFER maxdsk (LENGTH L)) 
S ( xpos maxdsk) y (е (SETQ y (ADDI y) 
d affiche T- asque sur t'eiguilte ; 
WHILE (LISTP | 
(DPYS (DIFFER XPOS (CAR 1222 
"qus FAT TD (DIFFER maxdsk (LENGTH 1222 
(ОРІ. (CAR L) (CAR L)) "ж" (ПІРІ. (CAR L) (САН L)))) 
| m Wa L5) 
+ $ affiche la base de l'aiguille ; 
(DPYS (DIFFER XPOS maxdsk) (PLUS ypos maxdsk) 
(DUPL "-" (ADD1 (PLUS nexdsk махавк) )))) 


$ WS teen d'occupation contient pour chaque SKS ; 
$ le numero du disque ; 
(DA 'TABOCC 4) 


% Le tableau des positions des EUM ; 
$ contient La position Y de chaqu aiguille ; 
| (DA "ХАІС 4 (LAMBDA OO (X ' (10 33 5555 
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( UP GO DOWN VISUT HANOI.REC ; 
$ Fonctions de visualisation d'un mouvement ; 


(DE UP (depart 2% 1 x) 
$ le disque se leve ; 
(SETQ | | 


L (DIFFER maxdsk (LENGTH (TABOCC depart)) ) 
$ position / au debut de l'aiguille ; 
` х (DIFFER (XAIG depart) n)) 
(REPEAT L | 
(GEI l (SUBI ú) . .. 
(DPYS x (PLUS ypos 1) disk) 
(DPYS x (ADD1 (PLUS ypos D) gomm)))))) 
(ПЕ 60 (depart arrives ;; fnt кі x2 x d) 
$ voyaga au dessus des aiguilles ; | 
(SETQ x1 (XAIG depart) x2 (XAIG arrivee) x (DIFFER x1 n») 
(ВЕТО fnt CIF (GT x1 х2) 'DECR °ІМСЯ)) 
(SETQ d (CONCAT " " disk " ")) 
(DPYS (А001 (DIFFER х1 maxdsk)) ypos gom) 
(REPEAT (ABS (DIFFER хі x25) 
DPYS x ypos d) | 


тею) 
(DPYS (А001 (DIFFER х2 maxdsk)) ypos gom))) 


(DE ООММ (arrives ;; x y) 
$ Le disque se rabaisse ; 
(SETQ 
x (DIFFER (XAIG arrivee) п) 


| y уров) m 
(REPEAT (SUB1 (DIFFER maxdsk (LENGTH (TABOCC arrivée?) A) 
t S x (А001 y) disk) 
$ x 


Гы y gomm 
‚ (SETQ y (ADD1 y))))))) 


(DE VISUT (n depart arrivee ;; disk gomm) 

22% Visualise le deplacement complet du disque n; . 
(DPYS 51 3 (SETQ nmouv (ADD1 nmouv))) | 
(SETQ disk (CONCAT (DUPL поп) "ж" (DUPL n n)) B 
"` domm (CONCAT OUR " " n) "x" (ПІРІ " " n))) 
(UP depart?) Б 
(60 depart arrivee) . 
(DOWN arrivee) ` č . | 
(SETQA TABOCC depart (CDR (TABOCC depart))) | 
(SETQA TABOCC arrivee (CONS n (TABOCC errivee)))) 


(DE HANOI.REC (n depart arrivee inter) 
{ fonction recursive de calcul des mouvements ; 
(IF (LEZP n) O 
(HANOI.REC (SUB1 п) depart inter arrivee) 
(VISUT n depart arrivee) 
( I.REC (50В1 n) inter arrivee depart)))) 
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{ HANOI ; 
(ОЕ HANOI ( ;: mexdsk ndsk n nmouv) 
т sequenceur ess - 
{ lecture du baratin 
(ТЕМ (DIRECTORY " (LIS. . JER) 'XHANOI . DOC») 
(PRINT "Y а pas de fichier DSK: HANOI. Boc (LS, жн. 
(ТҮРЕ ” (DSK (HANOI . DOC) (LIS . JER))) 
(UNTIL (TYI)) ; attente de > frappe ds l’espace ; ) 
(DPYINIT) ; passage sur La page, 1: ; 
(DPYS 25 3 "Les Tours de HANO ") 


t initialisation du nb maximum de disques ; 
(SETQ maxdsk 9) 
(HHILE T 


(DPYS 25 6 "(0 pour terminer HANOI.)") 
(DPYS 25 5 "Combien voulez-vous de disques ?") 
$ initialisation du nb courant de d A 
(WHILE (OR (LZP (SETQ ndsk (DIFFER (TYI) боҙ)» 
(GT GER 8) )) 
(OR (NEROP ndsk 
Prout (DP VEND) | 
рочт faire рег aux petites filles ; 
(Р INT "Tape 'RETURN' pour riter ia fin i du monde. ") - 
Ge (NEQ ( YD M5) (LESCAPE (INPUT) (ВЕ5ЕТ))) 
INT "Deleted All Files") 
PETES sur le ppn de l'utilisateur ; 


(MAPC (DIRECTORY) 
(LAMBDA (L) (PRINT (CAR L) ,/. (CDR L) ,/ / DELETED): 
c'est vraiment la fin ; | 
. (RUN ' (SYS(KJ0B))) 
’Hanoi)) 
Š $ effacement des geen сы 3 
PYS 513" | 


PYS 25 5 " WW 
YS 256" Di 
$ lere E vide pour Les aiguilles ; 
tsETQ ypos 1 E | 
3 calcul 1” ыр р d'un disque vide ; 
(SETQ gom «CONCAT (DUPL " " maxdsk) "x" COUPL А, naxdak))) | 
(SETQ n Indsk1) | 
(REPEAT (5081 ndsk) (SETQ n (CONS (SUB1 (CAR n)) m?) 
(SETQA TABOCC 1 п) (SETQA TABOCC 2 О) (SETQA TABOCC 3 0) 
(PAIG (ТАВОСС 1) (xaig 1)) 
(PAIG (TABOCC 2) (xaig 2)) 
(PAIG «ТАВОСС 3) (xaig 3)) 
į init du nb de position ; 
(SETQ nmouv 0) 
(HANOI.REC ndsk 1 2 3))))) 


(POUR EVAL (PRINT "Pour Lancer il faut taper s (HANOI) ")). 
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TRACE / STEP 
Trace et Pas-a-pas  VLISP 10. 3 


Jerome CHAILLOUX 


Тед уны а” Informatique 

niversite de Paris VIII - Vincennes | 
Route де (а Tourelle 75571 Paris Cedex 12 
Tel : 374 12 50 poste 299 


I. R.C. A.M 
31 Rue St Merri 75004 Paris 
Tel + 277 12 33 ponte 48-48 


че чо о чо w9 VO Ve ФФ gra VD 090-90 09 Je 


} Pour pouvoir Lire ce fichier en tous temps ... ; 

(PROGN (SETQ READ.TABLE (READ.TABLE)) (READ. STD) 'PRET) 

$ pour distinguer Les PRINT ordinaires des PRINT genere per TRACE ; 
(SYNONYM 'PRINTRACE PRINT) m 
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Те 
(DF TRACE (XF ;; XX) 
Т 


; Force une TRACE de n'importe quelle fonction də type ; 
FSUBR EXPR FEXPR MACRO MACIN MACOUT ; 


ber xF) 
а rien a tracer ?!? ; 
( SCAPE "xx TRACE quoi ?")) 
$ TRACE contient la Liste des fonctions (cf UNTRACE) ; 
d ACEN indicateurs ; 


(LAMBDA (XA) 
(COND 


(МЕМО CTYPEFN L3 ” (SUBR FSUBR) ) 
| EN 28 


ХХ (БЕТІ. XA '(EMPR FEXPR MACRO MACIN MACOUT)2) | 
(РИТ XA 0 * TRACE) | 
(PUT XA 


[LAMBDA — ` 
(CADR (CADR 100) 
[' PUT 


[QUOTE XA] | | 
L'ADD1 І?СЕТ [QUOTE ХА! ''TRACE]] 
* * TRACE] 


[' PRINTRACE 
['GET (QUOTE XA] ''TRACE] 
[QUOTE ”--->1 
UOTE ХА] 
[QUOTE ':J 
D (АТОМ (CADR (CADR 79) 
(CADR, (CADR %X)) 
"LIST . (CADR (CADR oun 
L’PRINTRACE 
"ЕТ. (QUOTE, xA * » TRACE] 
«<------ 
таа 
[° PR0G1 
['PROGN . (CDDR (CADR %X))] 
[*PUT | 
Есте USET [QUOTE XA] ””ТВАСЕ11 
ы 11 
(CAR ХХ)) 


(Т (SETQ ХЕ (DELA ЯҒ ХА)) 
(LESCAPE (PRINT "жж TRACE : C'est quoi " ЖА)))) 
$ Arr dans la liste des fonctions tracees ; 
SE ( DP ”ТВАСЕ) 


ХА) 
ЕТП TRACE (x [ХА1)))) 
xF) | 
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; TRACEFILE TRACEF UNTRACE ; 


(DE TRACEFILE (fite 5; L) 

$ lit et TRACE toutes Les definitions du fichier file ; 
(INPUT file) 
(WITH (EOF О CINPUT) (&eof)) 
(ESCLOOP &eof 

(SETQ Й (READ) ) 

(EVAL 1 

(ІР (AND (LISTP 10 

(МЕМО (CAR 1) ° (DE OF DM DMI DMO DEFUN) )) 

ER (EVAL [' TRACE (CADR 102) 

(е 


(ОҒ. TRACEF (D) ` 
; equivalent FSUBR de TRACEFILE ; 
CTRACEF ILE (САВ L))) 


(DF UNTRACE ОҒ rr ХО 
; enleve (а TRACE des fonctions contenues dans Е ; 
| ton" bien des fonctions des precedents TRACE ; 


(SETQ ЯҒ (AND (BOUNDP ? TRACE) TRACE)) 
е "жж UNTRACE quoi 2") ) 
(МАРС 
(LAMBDA (3A) 
(COND | 
((MEMQ (ТҮРЕЕМ XA) '(SUBR FSUBR)) 
uu ese 29 %A)) 


(SETQ 
2 XX (GETL XA ’ (EXPR. FEXPR MACRO MACIN MACOUT))) 
(EQ (CAAR (CDDDR (CADR 93002) "PRINTRAC E») 
(REMPROP XA * TRACE) 
(PUT XA 
[LAMBDA 
(САРВ (CADR. 300) 
Жы (CDAR (LAST (САРА (CÜDDR (CADR 300022022] 
(T (LESCAPE (PRINT "жж UNTRACE з C'est quoi " %A)))) 
(SETQ TRACE (DELQ XA TRACE)) )) 
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: STEPALL STEP UNSTEP : 


(DF STEPALL (XF) 
$ positionne Le mode STEP ; 
; A STEPALL T) ie met ; 
t (STEPALL) L’ enleve 
(STATUS (IF %F 1 2) З 8) ZF) 


(DF STEP (XF ;; XX) 


š Force un STEP de n° н quelle fonction de type ; 
EXPR FEXPR MACRO MACIN MACOUT ; 


D 
OR 
154. XF) ` 
а rien а tracer 212% | 
(L SCAPE "жж STEP quoi 21) 
Í STEP contient la liste des fonctions (cf UNSTEP) ; 
pose des indicateurs ; 
(МАРС xF 
(LAMBDA (%A) 
(COND 


((SETQ | ZEE 
XX (GETL XA '(EXPR FEXPR MACRO MACIN MACOUT) УР ` 
(PUT ХА 0 'STEP) | 

(PUT x 


[LAM 
Ces (CADR 900) 


[QUOTE 
[' А001 POET (QUOTE XAJ ema) 
*” STEP] . 
['PRINTRACE 
| [БЕТ [QUOTE ХА] ' '5ТЕР) 
[QUOTE ”--->1 
LT XA] 
QUOTE "ei 
(IF (АТОМ (CADR (САРА %X))) 
(CADR (CADR 000) | 
L'LIST . (CADR (CADR 93000301 
К PRINTRACE 
['GET dia eg STEP] 


тх. Фе 


"(STATUS 1 8) 


C'ETRACE [QUOTE (СООН (CADR ХХ2211 
peus 2 8) 


QUOTE 


XA] 
SUBI L'GET (QUOTE %A] ғ "STEPI] 
LE 111 


(CAR XX 
(T (SETQ ЯҒ (DELQ XF %A)) 
(LESCAPE (PRINT "жж STEP : C'est quoi " %A)))) 
t ajoute dans la liste des fonctions steppees ; 
(IF (BOUNDP 'STEP) 
(NEML STEP XA) 
ES (SETQ STEP 1%А12222 
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(ОҒ UNSTEP (XF ;; %X) 
y enleve Le STEP des fonctions contenues dans ZE ` 
зы bien des fonctions des precedents STEP ; 


ХЕ 
(SETQ XF (AND (BOUNDP 'STEP) STEP)) 
(LESCAPE "жж UNSTEP quoi ?")) 

MAPC XF 


(LAMBDA (XA) 
(COND 


((MEMQ (TYPEFN XA) ” (SUBR FSUBR)) 
"s 29 %A)) 


(SETA 
GETL XA '(EXPR FEXPR MACRO MACIN MACOUT))) 
Ск (CAAR (CODDR (CADR 2302) 'PRINTRACED) 
PROP ХА 'STEP) | 


PU Зар 
(CADR (CADR 200) 
e (СПАН (СПАН (LAST (CADR (CDDDR (CAOR %X))))))] 
(CAR %X))) 
(T (LESCAPE (PRINT "жж UNSTEP : C'est quoi " %A)))) 
Ез (SETQ STEP (DELQ XA STEP)) )) 
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; COUNT COUNTFILE COUNTF ; 


COUNT et UNCOUNT permettent d'obtenir un comptage 

du nombre d'appel dynamiques de differentes fonctions. 
ce qui est tres utile pour determiner quelles fonctions 
doivent etre ameliorer en priorite. 


ч20 “ее ve Фе 
50 6-99 ve 


(DF COUNT (L ;; X) 
+ prepare іе comptage du nombre d'appel ; 
t des fonctions nommees dans la liste 1 j 
% ex. d'appel (COUNT FOO FUU FII) ; 
(МАРС L 
(LAMBDA (L 33 X) 
(COND 


((SETQ X (GETL L ”«ЕХРВ FEXPR MACRO MACIN MACOUT))) 
(ATTACH ер 
[' PUT 
QUOTE 11 
"А001 L’GET [QUOTE LJ ''COUNT11 
””СОММТІ 
(CDDR (CADR X))) 
‚ФОТ L 0 'COUNT)) | 
T (T (PRINT "жж COUNT : C'est quoi " L))))) 


(ПЕ COUNTFILE (fite zs D 
{ Lit et COUNT toutes les definitions du fichier file ; 
(INPUT file) 
(WITH (EOF О (INPUT) (&eof)) 
(ESCLOOP &eof 
(SETQ d (READ) ) 
(EVAL L 
(IF (AND (LISTP 10 
(МЕМО (CAR 12 , (DE DF DM DMI DMO DEFUN) )) 
; hs ['COUNT (CADR 1)1))) 
iie 


wë COUNTF (L) 
equivalent FSUBR de UNCOUNTFILE ; 
со ТЕПЕ (CAR 1)))) 
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; SORTL UNCOUNT ; 


(DE SORTL (L ;; БЕСІ N Q L2 LL) 
; trie la Liste d'atomes L , une version de QUICKSORT ; 
; Patrick GREU. Aout 78 ; 
(IF (NULL L) О 
(SETQ RESL [NIL1) 
(PUSH (LENGTH L) L) 
(LET ((L1)) ; L1 «doit» etre locale, voyez-vous pourquoi ? ; 
(SETQ L1 (POP) М (POP)) ' | 
(IF (EQN N 1) (LESCAPE L1)) 
(SETQ Q (LOGSHIFT М -1)) (PUSH Q L1) 
(SETQ L1 (NTH Q L1)) | 
(PUSH (PLUS (LOGAND N 1) Q) (CDR L1)) 
(RPLACD L1 NIL) 
NÉ m (2 (SELF) LL «RPLACD RESL L1)) 


( 
(IF (SORT (CAR (2) (CAR L1)) 
. (SETQ N L1 L1 L2 L2 N N (RPLACD LL L1))) 
(SETQ LL L1 L1 (CDR L1))) 
(RPLACD LL 12) (CDR RESL)))) 


(DF UNCOUNT (L) 
{ adits le nombre de fois que les fonctions 
i осетин mentionnees par COUNT ont ete appellees 
; UNCOUNT enleve Le comptage des fonctions 
y ex. d'appel : (UNCOUNT) 


че w w «е 


(SETQ L | 
(SORTL (OR L | 
(МАРС L (MAPCT (OBLIST) (LAMBDA (L) (AND (GET L *COUNT) 1222299 


(LAMBDA (L ;; N) 
(COND 
((SETQ М (GET L *COUNT)) 
(PRIN1 L rei 


(TTAB 15) 

(PRINT N) 

(REMPROP L 'COUNTD | 

(SMASH (CDDR (ОН (GET L EXPR) (GET L FEXPR))))) 
T (T «PRINT "жж UNCOUNT : C'est quoi " L))))) 


; epilogue standard ; 


(READ. TABLE READ. TABLE) 


(POUR EVAL 
jt" bus (MAKLIST "SYS:DEBUG.VLI loaded.") ’CASCII) 


(TERPRI) 
* DEBUG) 
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APPENDICE D 


PRETTY CROSS-REFERENCE 


4 $ $ 

5 { | . | ; 

8 ; Editeur / Indexeur VLISP 10 . 3 К 
$ tbc л» шыл em mm AMD «қал том айн» Чч Dum «ша rus шшр «ада any 4.00) uo Ч vum rum E аф кебе mum өшіп сыз de Чын» (айын чү WEM ñ. өші» M (үп эзы) чана бақа чө vus Uum COUR “але «к» аршы s біле слу Qu ЧЫР «ал ú 

B i Jerome CHATLLOUK 

: t 

10 ; Depar tement а" Infermat ique 3 

11 i niversite de Paris VIII - Vincennes 4 

12 $ Route de la Tourelle 75571 Paris Cedex 12 P 

г ; Tel : 374 12: poste 299. ; 

15 i I.R.C.A.M. — . 

iB ; 31 Rue St Merri 75004 Paris e 

0 ; Tet : 277 12 33 poste 48-48 ; 

| 1------------------------------:--------------------------- ; 

13 ; Pour pouvoir Lire ce fichier en tous temps ... ; 

21 (PROGN 

22 ; sauvetage de la table du READ ; 

23 (SETQ READ. TABLE (READ. TABLE)? ` 

25 ; passage sur la table standard ; 

29 (READ. STD) 

26 P оз c'est pret ; 

27 PRE 

28 

29 
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$ 3 XTAB ADDN FLATSIZE SARENTRE SORTL ; 

(МАРС '(/( /) /. ri (LAMBDA (X) (SET X X))) 
(OR (BOUNDP *?index) (SETQ ?index NIL)) ` 

(DE ХТАВ (col) (STATUS 7 (PLUS cot (STATUS 7)))) 
(DE ADDN (X) (AND (LT XT (SETQ ХМ X)) (EXIT)) Т) 


(DE FLATSIZE (XL ;; XN) | 
$ calcule Le taille de — XL | 


((ATOM XL) (PLENGTH %L)) 
((AND (EQ (CAR XL) QUOTE) NULL (CDDR Sin 
(ADD1 (FLATSIZE-(CADR %L)) | 
((EQ (CAR XL) "LIST EPA (CDR XL)) 
((EQ (CAR xL) COMMENT) (PLUS 2 ( ра р) сон ау» 
( (ADON (PLUS 2 (FLATSIZE (NEXTL %L)))) 
(WHILE (LISTP XL) 
- (ADON (PLUS ҰМ (ADD1 (FLATSIZE (NEXTL %L)))))) 
CD (ADDN (PLUS XN 3 (FLATSIZE %L)))) 


ge? SARENTRE (XE ;; ХТ) | 
'EBCAPE ENT - teste 5i XE rentre dens ta Ligne courante 


(SETQ XT (DIFFER E 9) (STATUS 8) 5)) 
(GT XT (FLATSIZE SEI) 


(DE SORTL (L ;; RESL N Q L2 LL) 
; trie la Liste d'atomes L , жн version de QUICKSORT ; 
; Patrick GREUSSAY. iced 78 
; FFFFFFFFFFRRRRRRARRRRRR.....e р 
(IF ( (NULL L) к 


NIL 
KSET RESL INIL]) 
(PUSH (LENGTH L) L) 
(LET CDD) ` ` | 
$ Li «doit» etre locaté, voyez-vous pourquoi ? ; 
(SETQ 11 (POP) N (POP)) 
(IF (EQN N 1) (LESCAPE L1)) 
(SETQ Q siri N -1)) 


(PUSH ü L | 
(SETQ L1 um Q L1) 
` (PUSH (PLUS 0.9090 N 1) Q) (CDR Lu» 
(RPLACD L1 N | 
(SETQ L1 Ge L2 (SELF) LL (АРІ АСЮ RESL L1)) 
(WHILE L1 
| (IF (SORT CAR L2) (CAR L1)) 
(SETQ N L1 L1 L2 L2 N N (RPLACD LL 11992 
(SETQ LL L1 L1 (CDR 11999 
(RPLACD LL L2) 
(CDR RESL) ))) 


GEO EE EE EES NENNEN | 


“ғ 
ce 
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BS 4 XEOL XTERPRI XPC XPRDOT XSUIV XPPTC XP1 ; 

B8 (DE SEIL О 

89 ; TESTE SI Y FO UN TERPRI ; 

S (IF (GT (STATUS 8) (STATUS 79) (ЖТЕНРНІ) (STATUS 8 (STATUS 7)))) 
92 (DE XTERPRI (XN) 

93 ; effectue un TERPRI en numerotant Les SSES ; 

94 (TERPRI XN) 
95 (IF ?index | 
35 (PROGN (TTAB 0) (PRIN1 (INCR #nbline)) (ТТА STATUS УУУ) 
98 "- St (XL) 
99 de Se ип commentaire ; 

100 (XTE 

101 . (PRINC PTVRG 1) 

102 (EPROGN XL) 

iu (SPACES 1) 

04 (PRINC PTVRG 1) 

105 (XTERPRI 2)) 

106 

107 ФЕ XPRIN1 (XL) 

108 y simule РНІМІ et fabrique l'index ; 

109 (PRIN1 XL) 

110 (IFN ?index (LESCAPE %L)) 

111 CIF (AND XL (LITATOM XL) (OR ?crossall (GT (LOC XL) (LOC 'STOP)))) 
112 (PUT XL [#nbline . (GET XL '*CR0SS)] "CROSS)) 

ja ®© 

ns (DE XPRDOT O (PRINC /.) (SPACES 1) (CXPRIN1 XE)) 

1174 «DE XSUIV O 

118 Mir 

19 M XE) 

20 EXIT SE /. 1) (SPACES 1) (XPRIN1 ХЕ) (PRINC /) D» 
21 (NEXTL XE 

122 | | 
123 (DE XPPTC О 

ES , aps sur {а meme Ligne le commentaire (s'il isto ; 

25 n tete de ХЕ et met a jour XE ; 

b UF. (EQ (CAR XE) " COMMENT) een (XP1) (NEXTL %E)))) 


128 (Е XP1 О 


29 { imprime sur la meme ligne l'objet suivant de ЖЕ; 

130 (XPPTC) E 

131 «сом 

132 ((GARENTRE (CAR %E)) 

139 (SPACES 1) 

135 («САН ЖЕ) (SUPERP (NEXTL %E))) | 
36 ((PRINC. /( 1) (PRINC /) 1) (NEXTL %E)))) 
37 (T (XTAB 1) (SPACES 1) (%EDL) (SUPERP (NEXTL %E)) (XTAB -1))) 
38 : CXPPTC)) 

Ee 
40 
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` 


; 9 XPP XPRTTY XPRTTY1 XPRTTY2 ; 


(DE %PP (%E) 
3 imprime un : PROG DO LAP LOAD ; 
(XTAB 7) | 
МАРС XE 
(LAMBDA (XE) 
(COND ` 
( (ATOM ХЕ) 
(XTERPRI) ` 
E 8 (DIFFER (STATUS 7) 7)) 
(XPRIN1 ZE) 
(XEOL) ) 


(«Еа (CAR XE) ° COMMENT) 
(IF (SARENTRE XE) (SPACES 1) ment | 
к (SUPERP XE)) : 
(T (%EQL) (SUPERP %E))))) 
(PRINC /)) 
(XTAB -7)) 


(DE XPRTTY О 
оге les differents elements de ЖЕ (normalement) D 


Ge ХЕ) (WHILE XE (SPACES 1) (SUPERP (XSUIV ЖЕ)))) 
( (SPACES 
(XTAB 3) 


(МАРС ХЕ (LAMBDA (XE) (XEOL) (SUPERP %E))) 
(%TAB -3))) 
(PRINC '/) 1» 


(DE XPRTTY1 O 
; edite 1 element sur La meme Ligne ; 
И En le reste normalement ; 


| PAT) 


(DE XPRTTY2 О 


ое des cleuses de 'COND' ou de 'SELECT.." ; 
GTA B 3 n 


xt 
(LAMBDA (XE) 
.. (XEOL) 


(IF (EQ (CAR XE) "СОММЕМТ) 
(LESCAPE (SUPERP ХЕ») 
UE ES 1) 

(XTAB 1 
(SUPERP (NEXTL XE?) 
ХТАВ -1) 


тену 
(XTAB -3) 
(PRINC /) 1» 
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194 6 SUPERP ; 
95 . 


i 
196 ФЕ perio (XE vr XL XF %T) 
197 ; edite ЖЕ; 
198 (IF (ATOM XE) (LESCAPE (XPRIN1 XE))) 
199 y c'est donc une Liste ; 
200 $£ ХР = le type de ta fonction a editer ; 
201 (SET TQ 
202 ХЕ (OR 
203 (AND (LITATOM (CAR ЖЕ)) (GET (CAR XE) 'PRETTY)) 
204 (CAR %E) )) 
205 (ESCAPE EXIT 
206 (COND | | | 
207 ((АМО (EQ XF QUOTE) (NULL (CDDR %E))) 
208 (SETQ XE (CADR %E)) 
209 (АМО «АТОМ XE) (NOT (SARENTRE XE)) (XTERPRI)) 
210 (PRINC /*) 
211 (SUPERP Е) ) 
212 ((AND (LISTP (CAR %E)) (EQ (CAAR XE) LAMBDA) ) 
213 (SETQ XL (CADAR XE) XT (CDR SEI) 
214 (SUPERP 
215 VLET mE | 
216 (MAPCAR XL (LAMBDA OO [X (NEXTL XD10) 
217 (CDDAR XE)1)) 
218 (CAND (EQ XF 'MCONS (NULL (CDR (LAST %E)))) 
219 $ (MCONS x1 ... XN) [xl ... xN-1 . xN] ; 
220 (PRINC */D 
221 ` (NEXTL XE) 
222 (COND 
223 ((SARENTRE XE) 
224 (WHILE (LISTP (CDR XE)) 
225 (SUPERP (NEXTL %E)) 
226 | . (SPACES 1))) | 
227 <T (XTAB 1) 
228 (WHILE (LISTP (CDR ЗЕ)» 
229 | (SUPERP (NEXTL XE») 
30 | (XTERPRID) 
231 (XTAB -1))) 
232 (PRINC /.) 
233 (PRINC / ) 
| (SUPERP (CAR %E)) 
235 (PRINC 2/1) 
236 ( (AND 
237 (EQ ХЕ 'CONS) 
238 (NULL (CDR (LAST XE))) 
239 (NULL (CDDDR %E))) 
240 р (CONS x1 x2) [xl . x21 ; 
241 (SUPERP 
242 ['MCONS . (IF (CDDR XE) (CDR XE) І(САОВ XE) NIL1)1)) 
243 (ХАМО (EQ at *NCONS) Jee (СООН ЖЕ))) 
244  (МСОМ5 х1) [х1] 
245 (SUPERP LIST. (COR %E)])) 
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te ments 


7 SUPERP (suite) ; 


(AND (EQ ЯҒ 'LIST? (NULL (CDR (LAST %E)))) 
ç (LIST т xN) [xl ... XN] ; 


C(SARENTRE XE) 
(WHILE (LISTP XE) 
(SUPERP (NEXTL %E)) 
(AND %E (SPACES 1)))) 
(T (XTAB 1) 
(WHILE (LISTP XE) 
(SUPERP (NEXTL ХЕ); 
(AND ХЕ CXTERPRI))) 
(XTAB -1))) 

CRINE. e Si 2.” 

(САМО (EQ x FUNCTION) (NULL (СООН %E))) 

(PRINC /О 

(XPRIN1 (NEXTL %E)) 

(SPACES 1) 

(SUPERP (CAR %E)) 

(PRINC /))) 

((EQ XF COMMENT) 

(AND (EQUAL (CDR XE) '(P A G E» (EXIT (PAGE))) 

(PRINC PTVRG) 

(XTAB (SETQ XT (DIFFER (STATUS 8) (STATUS 7)))) 

(МАРС (CDR XE) *PRINC) 

(XTAB (MINUS %T)) 

(PRINC PTVRG)) 

( (EVERY XE om 

(PRINC / 

MEE беа ëng ail FER (STATUS 8) (STATUS 7)))) 
(0 (GARE TRE (CAR SEI CXTERPRI)) 
(XPRIN1 (NEXTL XED) 

(AND XE (SPACES D» 

(AND ps о 

(РВІМС 

(XTAB MINUS %T))) 


http://www.artinfo-musinfo.org VLISP 10.3 Manuel de référence, août 1978, page 198 / 224 


МІРІ 10. 3 Manuel de Référence . | | . Page 197. 


(4 8 SUPERP (suite) ; ` 


% 

289 ((PRINC ZO 

290 (WHILE XE 

291 (SETQ XL (XSUIV %E)) 

292 . . «COND ` п CS à 

293 ((NULL %E)) 

294 ( (OR | | 

295 (МЕМО XL 5) | | 

296 (MEMQ XF | | | 
297 ‚ * (OR AND LIST MCONS NCONCI APPEND1 PLUS DITFEF 
298 TIMES QUO MIN MAX PUSH EXPLODE GENSYM | 
298 PATHLIBRARY LESCAPE PROGN PROG1 PROG2))) 
300 (XPRIN1 910 | 

301 (EXIT CXPRTTY))) 

302 C(MEMQ ХЕ ° (ЕТ SETQ SETQQ)) 

303 (XPRINI XL) ` 

304 (COND 

305 ((SARENTRE XE) 

306 (WHILE XE (SPACES 1) (SUPERP (NEXTL %E)))) 
307 ( (XTAB 3) 

308 (WHILE ZE 

309 а (XTERPRI) 

310 (SUPERP (NEXTL %E)) 

311 | СІР ХЕ 

312 | (XP1) 

313 | (EXIT (PRINC /)) (XTAB -3)))) 

314 (XTAB -3))) 

315 (EXIT (PRINC ’/)))) 

316 | ((MEMQ ZL ’ (ESCAPE ESCLOOP)) 

317 (XPRIN1 XL) 

318 m (SETQ XS (Cap XE) . XS)) 

319 | (EXIT (XPRTTY1) (NEXTL X955) 

320 ( (MEMA Ж ОО mE | | 

321 | “(ПЕ DF DM DMI DMO DMC DG МАСІ АР MACMP ОСЕМ) > 
322 { tous les types de definitions standards ; 
323 CAPRIN1 %L) 

324 | (SPACES 1) 
825 — (IF (LITATOM (CAR %E)) 

326 ; forme normale des DEFs ; | m 
327 (PROGN (SUPERP (NEXTL XE)) (EXIT (XPRITY?2)j 
328 y call-forme des DEFs ; 

329 | (SUPERP (NEXTL %E)) 

330 | (EXIT (XPRTTY)))) 

331 ((MEMQ ZF 

332 * (LAMBDA WITH WHILE UNTIL STATUS BOOLE PUT IEN ° 
333 GAMMA IF EVERY SOME ORF ANDF REPEAT REPEATUNTIL 
334 MAP МАРС MAPS MAPLIST MAPSUB МАРТ MAPCT MAPS? 
335 POUR LET)? CZPRIN1 XL) (EXIT (XPRTTY1))) 

336 ( (EQ XF 'PROG) 

337 (XPRIN1 ZL) | 

338 (SPACES 1) 

339 (SUPERP (NEXTL %E)) 

340 (EXIT (XPP %E))) 

341 ( (EQ XF 'LAP) 

342 (ХРВІМ№ ZL) 

343 (OR (EQ (CAAR %E) QUOTE) (EXIT (XPRTTY))) 

344 (SPACES 1) 

345 (PRINC /') 

346 (PRINC /О 

347 (XPP (CADAR ЖЕУ) 

348 (NEXTL %E) 

349 (EXIT CXPRTTY))) 
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350 ((MEMQ wF ° (BACKTRACK SELECT SELECTO) » 


391 (XPRINI 

352 (SPACES e 

353 (XP1) 

354 (EXIT CXPRTTY2))) 
355 ((EQ XF *COND) (XPRIN1 %L) ект (XPRTTY2)))) 
356 | (XTAB 1) 

357 (OR ЛЕ ГЕ XL) (CXE0L)) 
358 (SUPERP 

359 (АМО XE (SPACES 1)) 

360 “0% 2% (XTAB -1)) 

361 | (PRINC '/)))))) 

362 E | 

363 
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366 ; 9 PRETTYNIT PRETTYFIN PRETTYP PRETTY ; 


365 

366 (ПЕ Же Al 

367 initialisation des STATUS avant edition ; 

368 (PUSH (STATUS 7) (STATUS 9) (STATUS 0» 

369 cile 7 (IF ?index 6 10) 

370 STATUS 9 PRETTYSIZE) 

371 (STATUS 2 19 25) 

s (STATUS 1 24 26 27») 

374 (ПЕ PRETTYFIN О 

375 ; restauration des STATUS apres editio 

376 (МАРС ' (0 9 7) «LAMBDA СХ) (STATUS a ору)» 

377 CTERPRDD) (° ° 

378 | 

379 (DE PRETTYP (XE ;; XS) 

380 + PRETTY-PRINT une S-expression ; 

381 $ XS est la table des ESCAPEs actifs ; 

382 (PRETTYNIT) 

383 (SUPERP XE) 

384 (PRETTYFIN) 

385 ФЕ) "MEN 

386 

387 (ОЕ PRETTY (XL "ur XX) 

388 ; PRETTY-PRINT des fonctions ; 

389 (МАРС XL 

390 (LAMBDA (XL) 

391 (XTERPRI) 

392 (COND 

393 ((SETQ 

394 XX 

395 (ЕТІ. XL | 
396 `* (EXPR FEXPR MACRO MACIN MACOUT MACLAP Ітастр gen) )) 
s E Lë des fonctions normales P 

399 . {(СА550 (CAR. 300 

400 .. *«(EXPR . DE) (FEXPR . DF) (MACRO . DM) 

401 (MACIN . DMI) «MACOUT . DMO) (MACLAP . МАС! АР) 
402 SSC (!мастр . МАСМР) (Igen . DGEN))) 

403 «XL 

404 . (CDR (CADR 200010) 

405 сок (EQ (PLENGTH XL? 1) (SETQ XX (STATUS 18 2) 
406 cas des macros-caracteres ; 

407 (PRETTYP ['DMC XL . (CDR 201») 

408 ((BOUNDP ZL) ; on essaie la C-vat ; (PRETTYP (CAR %L))) 
409 (T 3 on sait pas ce que c'est ; 

410 ` (PRINT "жж PRETTY : C'est quoi ?" 400) 

411 ыы O 

412 

413 
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He $ 10 PRETTYFILE ; 


41 

416 (ОЕ PRETTYFILE (filout filin 2541 sr XS lu (акне toon 

417 ; 26М1 = T si on laisse les casses en l'etat a 

418 ; XS est la liste des ESCAPEs actifs ; 

418 ; lastprtcom sert a controler la supress Lon de Vignes $ 
420 ; blanches entre 2 commentaires ; 

421 (DE EOF О 

422 (REMPROP 'TOPLEVEL EXPR) 

423 DRE. bad EXPR) 

424 (РВЕТТҮ 

158 Sa 15. NIL (STATUS 7 0) (PAGE) (CROSSPRINT ) ) 

427 (PRIN1 (IF (BOUNDP ” VERSION) VERSION (VERSION) ) (DATE) (TIM) 
428 "ЕМО ‘OF 'FILE *: filin)) 

629 (STATUS 17 (ASCII 13) 0) 

430 (STATUS 19 PTVRG) 

431 (STATUS e 2 12)) 

432 ALTER 8 19) 

433 COUTPU 

434 (INPUT). 

435 (SEOF filout)) 

436 (DE TOPLEVEL () 

637 (SETQ lu (READ)) 

438 (COND 

439 (САТОМ Lu) (PRINT lu)) 

440 CCAND (EQ (CAR lu) POUR) ЕП (CADR lu) "РНЕТТҮ)) 
441 (EPROGN (CDDR (и) )) 

442 (СМЕЯ «САН іш) * COMMENTO | 

ee Um [аѕіргісот (XTERPRIO) 

445 (AND ?index (EW (CAR Lu) "(DE DF DM ОМІ ОМО Dr DA))) 
446 — m (SETQ ` 

447 | #nbfnt CECCADR lu) (CAR Lu) шы, . Anbfnt])) 
448 (SUPERP L 

449 —— | (SETQ Lestprtcom 

450 (XTERPRI | 

451 С T (SETQ месна Т) (SUPERP 4и) )›) 

452 (ХТЕВРВІ)) ` 

453 (STATUS 17 (ASCII 13) 1) | 

454 (STATUS 18 (ASCII 12) (LAMBDA ог СОММЕМТ 'P 'A "G ЕО) 
4655 (SETQ rue (ASCII 59)) dM 

456 (STATUS 18 

457 PTVRG 

458 (LAMBDA (XL XC XT) 

459 (SETQ XL Г° COMMENTI) 

460 (UNTIL (EQ (SETQ ar (READCH) ) PTVRG) (SETQ xL (x. %L])) 
461 (REVERSE %L))) 

с Ed (QR filout ° (DSK (PRETTY . VLP) (СЕТРРМО 45) 

454 (Р INL (IF (BOUNDP 'VERSION) VERSION (VERSIOND) (DATE) (ТІЗЕ: 
465 ILE ': filin)) 

466 (РВЕТТҮМІ Т» 

467 (STATUS UF ?swl 2 1) 19) 

468 (STATUS 2 18) 

469 (INPUT fitim) 

pu (ESCLOOP &EOF (TOPLEVEL ) ) ) 

472 
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873 з 11 PRETTYF PRETTYSIZE PRETTYEND ; 


478 

475 (DF PRETTYF (filin) 

476 y PRETTY-PRINT un fichier standard ; ` | 
477 ; la ler. arg est le nom du fichier, (е 2eme L'indice ; 
478 ; ex : (PRETTYF PRETTY) , (PRETTYF LODLAP Т) ; | 
479 (PRETTYFILE I'DSK [(CAR filin) . ?УІРІ (GETPPN) 4653 
5" (“ПӘК ГХСАН filin) . 'VLI1] (CADR filin))) | 
482 (DE PRETTYSIZE (ҰМ) 

483 $ initialise la Largeur d' impression du PRETTY ; 

ie (SETQ PRETTYSIZE (IF (NUMBP №) XN 71D» 


486 (ПЕ PRETTYEND (;; X) | 


487 ; pua la place de PRETTY-PRINT ; . 

488 (SETQ X (STATUS 21») | ыз 12 2 

489 (МАРС | 

490 "(%ТАВ ADDN FLATSIZE SARENTRE XEOL XPRDOT XSUIV XP1 «РР XPRTT Y 
491 ХРВТТҮ1 ХРВТТҮ2 SUPERP PRETTYP PRETTYFILE PRETTYSIZE PRETTYEND 
492 CROSSPRINT CROSS CROSSFILE) '(LAMBDA OO (REMPROP X 'EXPR))) 
493 (МАРС ” (PRETTY PRETTYF CROSSF) (LAMBDA OO (REMPROP X ’FEXPR))) 
494 (AUTOLOAD PRETTY PRETTYP PRETTY PRETTYFILE PRETTYF PRETTYSI 
495 PRETTYEND) | е 

EG (PRINT *PRETTYEND ”- (DIFFER (STATUS 2D X))) 

455 (QR (BOUNDP °РВЕТТҮЅІ2Е) (SETQ PRETTYSIZE 71)) 

500 
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B01 1 12 CROSSPRINT ; 


50 E 

503 (ПЕ CROSSPRINT €; #nb X) | 

504 ; edite le resultat du CROSS ; 

505 ; Les atomes references possedent sous U indicateur ( 

506 "CROSS (а Liste des numeros de Lignes. ; 

507 SETQ ?index NIL) 

508 (SETG #nb 0) 

509 (STATUS 2 20) 

910 (TTAB 17) 

511 (PRINT 'CROSS 'REFERENCE) 

512 ri 2) mE 

513 5 impression de la Liste des fonctions ; 

514 (МАРС (SORTL (MAPCAR #nbfnt ”САН)) 

515 (LAMBDA (L) 

516 (MAPC 

au СЕТ CO #nbfnt)) 

518 (COND 

519 ((NULL X) NIL) 

520 - ((EQ (CAAR X) L) (CAR X)) 

521 | (T (SELF (CDR X))))) ’PRIN1) 

522 | (ТЕВРВ1))›) `` 

523 (TERPRI 2) | 

524 s edition du cross-ref 

525 (MAPC е Si: (OBL Ier (LAMBDA (L) «АМО (GET | L *CROSS) L)))) 

926 (LAMBDA ( | 

527 Ета X ! GET L CROSS) ) 

528 | _ «REMPROP L 'CROSS) 

529 | (STATUS 7 0) 

530 (TERPRID 

531 (PRIN1 (INCR #nb)) 

32 mE (TTAB 4) | 

333 (PRIN1 L) 

234 (STATUS 7 18) 

535 | (ТТАВ 17) | 

536 (MAPC HE X) (LAMBDA QO XPRINI 0) 

537 ` (TERPRD) ) E 
| 538 (STATUS 7 0) 

539 CTERPRI) ) 

540 

541 


http://www.artinfo-musinfo.org VLISP (0 3 Manuel de référence, août 1978, page 204 / 224 


-$e vima A ss 


ME 10. 3 Manuet de Référence | x | Page 203 | 


549 


ag 


29806595 ШИ 


; 13 CROSS CROSSFILE CROSSF ; 


(DF CROSS (F $$ ?crossall ?index #nbline #nbfnt) 
(SETQ #nbline 0) 
(SETQ ?index T) 
(SETQ гоа (CADR P») 
(STATUS 7 9) 
(EVAL [* ЕП (CAR F)1) 
(CROSSPRINT) 


(DE CROSSFILE 
(filout Be ?crossal { ?crossbdc H ? index #nbline finbfnt) 
+ CROSS-REF *filin' dans ’filout’ $ 
; ?crossall = T si on veut tous les atomes systemes :- 
$ ?crossbdc = T si on veut Les раз-Че-саввез i 
(SETQ #nbline 0) | 
(SETQ ?index Т) 
(STATUS 7 9) 
(SETQ PRETTYSIZE (PLUS PRETTYSIZE 105) 
(OR filout (SETQ filout '(DSK (CROSS . VLC) (GETPPN) 45))) ` 
(PRETTYFILE filout filin ?crossbdc) 
(SETQ ERR (DIFFER PRETTYSIZE 1022 
filout 


(DF CROSSF (filin) 
; CROSS-REF un fichier standard ; I 
$ appel : (CROSSF nom de $e file, » ?crossall , ?crossbdc) ; 
i ex : (CROSSF PRETTY T Т) С 
(CROSSFILE [’DSK f(CAR filin) . "ҮГСІ (GETPPN) 451 
[DSK [(CAR filin) . 'VLI1] (CADR filin) (CADDR нат») 


(READ. TABLE READ. TABLE) 


(РО AL 
| d e (MAPCAR (MAKLIST "SYS:PRETTY.VLI Loaded") *CASCII) TY) 


* PRETTY) 
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CROSS REFERENCE 


PRETTYF DF 475 
PRETTYFILE DE 416 


ETTYFIN DE 374 


EE Ts pum Trpo Re ар 


Menuel de Référence 


TTYNIT DE 366 
TTYP DE 379 
TTYSIZE DE 482 
= SARENTRE DE 54 
SORTL DE 60 
SUPERP DE 196 
XPRDOT DE 115 
ТТҮ DE 161 
XPRTTY1 DE 171 
XPRTTY2 DE 177 
XSUIV DE 117 
і - 32 233 
2 igen 896 402 
З  Imacmp 396 402 | 
4 inb 503 508 531 | 
5  finbfnt 447 447 514 517 544 553 
6  #nbline 86 112 447 544 545 553 557 
7 Ж 458 460 460 
8 Е 54 58 115 119 120 I 126 126 132 135 135 136 137 143 146 
147 149 152 154 155 56 157 164 164 164 167 167 167 180 
81 183 184 187 196 LES 198 203 203 204 207 208 208 209 
209 211 212 212 213 213 217 218 221 223 224 225 228 229 
234 238 239 242 242 242 243 245 248 251 253 254 255 256 
259 280 262 264 266 268 271 274 277 280 281 282 283 
284 290 291 293 305 306 306 308 310 311 318 325 327 329 
339 340 343 347 348 359 379 383 385 
9 Em 88 137 153 157 167 182 357 490 
10 ХЕ 


196 202 207 218 237 243 248 264 270 296 302 320 331 336 
341 350 355 
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МЕР 10 . 3 


11 


H 


?сговваі1! 


?crossbdc 


?index 
?sw1 

A 
ADDN 


BACKTRACK 


CROSS 


CROSSPRINT 


DGEN 


Manuel de Référence 
NU 


40 43 43 44 44 45 46 46 47 47 48 49 50 51 51 98 102 107 
109 110 111 111 111 112 112 113 196 213 216 291 295 300 
303 316 317 323 335 337 342 351 355 357 358 387 389 390 
395 403 405 405 407 408 408 410 458 459 460 460 261 

38 40 50 51 52 92 94 482 484 484 

126 128 174 312 353 490 

98 426 463 

143 340 347 490 

123 130 138 

107 115 120 152 198 266 282 300 303 317 323 335 337 342 


295 318 318 319 379 416 
38 54 57 58 196 213 216 273 275 279 286 458 


36 137 137 145 159 166 168 179 186 188 190 227 231 257 
261 273 275 279 286 307 313 314 356 360 490 


m e 100 105 150 155 209 230 260 281 309 391 411 443 450 


376 376 387 394 399 404 405 407 

435 470 

32 210 345 

32 136 185 265 278 289 346 

32 120 136 158 169 191 269 285 313 315 361 
32 115 120 232 | 
428 465 

111 544 547 553 

553 562 

34 34 95 110 369 425 445 507 544 546 553 558 
418 467 

271 454 

38 48 50 51 490 

350 

112 112 492 511 525 527 528 544 561 

425 492 503 550 

321 402 
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39 DSK 462 479 480 561 570 571 

40 E | 271 454 

41 END 428 

42  ESCLOOP 316 470 

43 EXIT 88 56 120 205 271 301 313 315 319 327 330 335 340 343 349 
354 355 

44 F 544 547 549 

45 FILE 428 465 4 

46 FLATSIZE 40 45 46 48 50 51 58 490 

up 271 454 

48 L 60 64 67 67 515 520 525 525 525 526 527 528 533 

49 L1 68 70 71 73 74 74 75 76 77 77 78 79 80 80 80 81 81 81 

50 12 BO 77 79 80 80 82 

51 LET 68 215 335 517 

52 LL 60 77 80 81 82 

53 MACLAP 321 396 401 401 

54 МАСМР 321 402 

55 MAPLIST 334 ` | 

56 N 60 70 71 72 75 80 80 80 

57 OF 428 | 

58 P 271 454 

59 PRET 27 

60 PRETTYEND 486 491 495 496 

61 PRETTYFIN 374 384 424 

62 PRETTYNIT 366 382 466 

63 PTVRG 101 104 272 276 430 455 457 460 

64 Q 80 72 73 74 75 

65 REFERENCE 511 

66 REPEATUNTIL 333 

67 RESL 60 66 77 83 

68 SARENTRE 54 132 155 164 209 223 253 281 305 357 490 

69 SORTL 60 514 525 
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70 


71 
72 


85 


87 


SUPERP 


XPRDOT 
XPRTTY 
XPRTTY1 
XPRTTY2 
XSUIV 

[ 

] 

col 


filin 


filout 


Lastprtcom 


Lu 


135 137 156 157 164 157 184 187 196 211 214 225 229 234 
241 245 255 259 268 306 310 327 329 339 358 383 448 451 
561 570 
480 571 
462 479 


332 


32 32 32 38 38 216 216 486 488 492 492 493 493 496 503 


517 519 520 520 521 527 536 536 536 

115 262 284 490 

161 175 189 301 330 343 349 490 

171 319 327 335 491 

177 354 355 491 

117 164 291 490 

220 250 

235 263 

36 36 

ai 428 465 469 475 479 480 480 553 562 586 570 571 571 


416 435 462 553 561 561 562 564 
416 443 449 451 
416 437 439 439 440 440 441 442 445 447 447 448 451 
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TABLE 0” ІМПЕХ du MANUEL 10.3 


- | 27 
À express ton . * е . % ^ ә ә а + o Ф е 15 <J / 
АУУ) 2 

" € © e o ее ее 9 ò + + ù = o ө o 88 À dé LI 2 

& 9 ее е а еге е è е ù ғ a e e ° о о 96 y uso, 1 ( CN 
ҚИ, 5 

d оо ө 6 9» э э 0 в.в è ө °. . e o °. 24 i 

( e э e € а е q ее е ee е 87 

(# nl n2)  SUBR à 2 arguments . . 65 


(ж...) peudo LAP . . . . . . ë 


(// nl n2) SUBR à 2 arguments 
(/\ n] n2) SUBR à 2 arguments 
(1+ n) SUBR à 1 argument . . 
(1- n) SUBR à 1 argument . , . . . . 64 


4 «еее ° ° ө o 
| с? 
ғ 


(- nl n2 SUBR à 2 arguments 


(<= nl n2 SUBR à 2 arguments . . . 66 

(= nl n2 . SUBR à 2 arguments .... 65 

(> nl n2  $SUBR à 2 arguments. . . . 65 
(>= nl n2  SUBR à 2 arguments 2... 66 
(ABS п)  SUBR à 1 argument. . . . . . 60 
(А001 п) SUBR à 1 argument . .... 60 
CADDPROP pl pvat ind) SUBR à 3 arguments 49 
(ALIAS ppn)  SUBR à 1 argument . . . 105 
(AND sl ... sn)  FSUBR . . . .. ` . . 28 
САМОЕ s fnl.... fnn). ВВ à М arguments 35 
(APPEND Ls) SUBR à 2 arguments . . 42 


(APPEND1 1 51 ... en)  SUBR à N arguments 42 
(APPLY fn L) SUBR à 2 Pw .. 21 
CAPPLYN fn 51... sn)  SUBR à N arguments 21 
(ARRAY at n) SUBR à 2 arguments , . 78 
(ARRAY reg atome) macro du compilateur 151 
(ASCII п  SUBR à 1 argument , . . . 
(А5500 s aD  SUBR à 2 arguments . 
(А550 a at)  SUBR à 2 arguments . . 
(АТАМ п) SUBR à 1 argument . . . , 
(ATOM =)  SUBR à 1 argument . . . . 
(ATTACH 1 =)  SUBR à 2 arguments . 
(AUTOLOAD fite etl ... atn)  FSUBR 
(BACKTRACK at 51... sN) MACRO . . 
(BOUNDP at)  SUBR à 1 argument . . 
(BREAKCH c n) EXPR à 2 arguments . 
(C....Rs)  SUBR à 1 argument , . . 
(CALLI n ac) SUBR à 2 arguments . 
(САВ а s> macro LAP ........ 142 
(CAR regd source) macro du compilateur 151 
(CAR s)  SUBR à 1 argument , . , . , 
(CASCII c?  SUBR à 1 argument. . . 
(CASSOC s aD  SUBR à 2 arguments . . 47 
(CASSQ a aD  SUBR à 2 arguments . . 47 
(СОН ds) macro LAP ........ 142 
(СОН regd source) macro du compilateur 151 
(CDR ei  SUBR à 1 argument , , . . . 36 
(CNTH n L) SUBR à 2 arguments . . . 37 
(COMMENT ... ) FSUBR . . . , .... 24 


Ka л 
Со 
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(COMMENT ... ) pseudo Läb... 141 
(COMPILE at өмі sv2) FEXPR . . e. a 157 


(COMPILEF file sul) FEXPR . . . . . 158 

(COMPILEFILE filout filin 501) EXPR 157 Ж 
(COMPILEND) EXPR à 0 argument . . . 158 EL 
(COMPILES ei EXPR à 1 argument . . . 157 Kë 
(COMPILOPTIONS 111... in) EXPR а М arguments 158 Y c 
(COMPL n)  SUBR à 1 argument . . . . . 66 7 À 
(CONCAT strl ... strn)  SUBR à N arguments 74 ( 
(COND 11 ... ln) FSUBR . . . . . . 28 


(CONFIGURATION init in out ...)  SUBR à N arguments 110 
(CONS г) пасғо(АР.,......... | 
(CONS. si s2)  SUBR à 2 arguments . 
(COPY s)  SUBR à 1 argument , . . . 
(COS п) SUBR à 1 argument . . . . . 
(COUNT atl ... atn) FEXPR .... 
(COUNTF fitin) - ҒЕРВ......... 127 
XCOUNTFILE filin) EXPR à 1 argument 127 
2 «CROSS at sul sw2 FSUBR . . . .. . 136 
(CROSSF file sul su2 FSUBR .... 
. «CRQSSFILE filout filin sul sw2) SUBR à М arguments 135 
(CYCLE)  FSUBR a o9 ss yos 34 
(DA nom taille fonction) | SUBR à 3 arguments 77 
(DATE)  SUBR а 0 argument . . . . + . 
(DAYTIME) | SUBR;à 0 argument . . 
(DCONS s 1) SUBR à 2 arguments . 
(007)  SUBR à O argument . . . . 
(DE at 1 sl ... sN) FSUBR . , . 
(DECR at) | FSUBR ........ 
(DEFPROP рі pval ind)  FSUBR . . 
(DELETE s 1) SUBR à 2 arguments 
(DELQ a.t) SUBR à 2 arguments . 
(DF e t l si 4... SN) FSUBR . а е e 
(DIFFER ni ... пп) SUBR à М arguments 60 
(DIM nom . SUBR à 1 argument . . . , 78 
EE ppn 1) SUBR à 2 arguments 105 | 
(DISPLAY 1 п SUBR à 2 arguments . . 99 | ü 


<> ý 
(DM at 1 s1 ... en) FSUBR . . . . . 17 = 
(DMC c t sl... sN) FSUBR ..... 86 | — 
(DMO at t 51 .. sN) FSUBR . . . . . 98 š t 
(DO (Cati sil sri? ... (atN siN srN)) (p rl ... rN) sl ...,5№М 335 
(DO (at si sr) (p rl ... rN) 51... SN) FSUBR 33 À 


(DUMPF file atl ... atn) FEXPR. .. 171 x 
(ПІРІ str n) GUDD à 2 arguments . 10 


э а ео + ао о о 


ә ° е a е е ° + e 
: ғ 
a 


(END pseudo LAP .......... 141 
(ENTRY nom type nombre) pseudo LAP . 141 
(EOF)  SUBR à 0 argument . . . . . . 102 
(EPROGN 1)  SUBR à 1 argument . . . . 23 
(EQ ei 52)  SUBR à 2 arguments . . . 27 
(ЕОМ n1 n2  SUBR à 2 arguments . . . 61 


(EQP sl s2)  SUBR à 2 arguments . . . 26 
(EQSTRING str1 str2)  SUBR à 2 arguments 73 
(EQUAL s1 52) SUBR à 2 arguments . 27 
СЕННОВ.ШВУ a nl n2 — SUBR à N arguments 118 
(ERROR.UDFA s ni n2  SUBR à М arguments 118 
(ERROR.UDFE в ni n2 SUBR à М arguments 118 
(ESCAPE at s1.... sn)  FSUBR .... 31 
(ESCAPE. Í n n n) SUBR à М arguments 119 
(ESCAPECH с n) EXPR à 2 arguments . 
(ESCLOOP at 51... sn) MACRO . . . . 
(EVAL s) , SUBR à 1 argument . . . . . 21 
(EVAL s) pseudo LAP . . . . . . . . « 
(EVENP п) Supri à 1 argument . . . . . 61 biz] 
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(EVERY L fn) SUBR à 2 arguments . . 


(EVLIS L) SUBR à 1 argument . . , . 22 
(EXCH ati at2 . FSUBR. . . . . . . . 45 
(EXP adr) pseudo LAP ........ 141 
сга n) SUBR à 1 argument. . . . . . 68 
(EXPLODE al ... an) SUBR à М arguments 51 
(FILE at filel file2) ЕХРА . . . , . 168 


(FILESPEC s) [expr à 1 argument] . . 166 ` 
(FILLARRAY nom Liste) — SUBR à 2 arguments 79 
(FILOP t filel file2) ВА à 3 arguments 103 


(FIX n) ВЕ à 1 argument. . . . . . 59 
б s) SUBR à 1 argument ..... 59 
(FLOAT n) SUBR à 1 argument . . . . . 59 
(FLOATP s) SUBR à 1 argument . ... 59 
(FREVERSE L) SUBR à 1 argument. . . 46 
(FSUBR fn D  SUBR à 2 arguments . . 22 
(FUNCTION ei FSUBR ........ 24 


(GE nl n2 ... пп) SUBR à N arguments 62 

(GENSYM al ... en)  SUBR à N arguments 51 

(GET pi ind) SUBR à 2 arguments . , 49 

(СЕТ. рі Lind)  SUBR à 2 arguments . 49 

СБЕТРРМ — SUBR à O argument . . . . 104 
(GETSYMBOL at) SUBR à 1 argument . . 144 

(GETTAB x ni  SUBR à 2 arguments .. 55 

(GETVAL registre atome) macro du compilateur 152 
(GEZP п) SUBR à 1 argument . .... 62 


(GOTO s)  SUBR à 1 argument . . , . . 32 
(6T nl n2 ... пп) SUBR à М arguments 62 


(GZP n) SUBR à 1 argument . . . . . . 62 
(HELP) EXPR à 0 argument . . . . . . 171 
(HOT.START)  SUBR à O argument . . . 114 
(ID ei БИВА à 1 argument . . . . . . 24. 
(IF Бі 62 53 ... sn)  FSUBR, . . . . 28 | 
(IFN el 52 s3 ... sn)  FSUBR .... 28 ` = | th 
(IMPLODE ei . SUBR à 1 argument . . . 72 | РЕ | 

i ( I NCR a t) FSUBR © г ә 9 ө 5 а + ә a 45 mE 
(INDEXF file sul) FSUBR . . . . . . 138 А ду 
(INDEXFILE fitout filin sul) SUBR à 3 arguments 13 "E > 
(INPUT file) ВА à 1 argument . . . 102 ` | | С Ё 
(INUMBP =) SUBR à 1 argument . . . . 58 | | ec ү 
CIRCAMP)  SUBR à O argument . . . . , 55 y LÉ 
(JNLISTr a) macro LAP . . . . . ‚ + 142 [ 
(JPLIST r a) macro АР....... 142 2 { pra 1 N 
(LAMBDA s sl ... sn) FSUBR . . . . . 26 . 
(LAP 1 sul)  SUBR à 2 arguments . . . 145 
(-АРАСК L) SUBR à 1 argument . . . . 148 
(LAPACKF file sul) FSUBR . . . . . . 149 2 
(LAPACKFILE filout fitin)  SUBR à 2 arguments 149 
(LAPEND) SUBR à O argument . . . . . 146 


(LAPF fite swl) FSUBR . . . . . . . . 146 4 
(LAPFILE filout filin svi?  SUBR à 3 е 145 

(LAST t n) | SUBR à 2 arguments . . . 8 

(LASTCALL п) SUBR à 1 argument . . . 24 

(LE пі n2 ... пп) SUBR à М arguments 62 

(LENGTH s)  SUBR à 1 argument . . . . 38 

(LESCAPE s1 ... sn) FSUBR . .. .. 31 


(LET 1 81 ... sN) MACRO ...... 169 
(LEZP п) SUBR à 1 argument . . . . . . 62 
(LIBRARY fite) FSUBR . . .. .. . . . . 93 


(LIGHTS n)  SUBR à 1 argument . . . . 55 
(LINEAR sl ... sn)  SUBR à N arguments 40 
(LIST sl ... sn)  SUBR à N arguments 40 
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(LISTARRAY nom  SUBR à 1 argument . 79 
(LISTP s) SUBR à 1 argument . . . . 26 
(LIT L s fn) ИВА à 3 arguments . . 36 
(LITATOM в»  SUBR à 1 argument . . . 26 
(LOC s i) SUBR à 2 arguments . . . 129 
(LOG n) SUBR à 1 argument . . . . . . 68 
(LOG10 n) ` : SUBR à 1 argument . ° ә e . 68 
(LOGAND ni n2) SUBR à 2 arguments . . 66 
(LOGOR n1 n2  SUBR à 2 arguments . . 67 
(LOGSHIFT nli n2) SUBR à 2 arguments . 66 
(LOGXOR n1 n2) SUBR à 2 arguments . . 67 
n nl Қы ... nn) SUBR à N шшен 62 
ZP п) SUBR à 1 argument . . . 63 
(МАСІ ЯР nom arg corps) pseudo LAP . « 142 
daer) str). SUBR à 1 argument . . 72 
(MAP L fn)  SUBR à 2 ane ж 99 X^ e 
(MAPARRAY nom fonction) ..SUBR à 2 arguments 79 | ` f 
XMAPARRAYQ nom fonction  FSUBR . . . 79 
(МАРС 1 fr? ОВА à 2 arguments . . . 35 
(MAPCAR L fn) SUR à 2 arguments . . 35 
(MAPCT t fn) SUBR à 2 arguments , . 35 
(MAPLIST l fn)  SUBR à 2 arguments . 35 
(MAPS 1 fn) ВА à 2 arguments . . . 35 
(MAPST t fn) SUBR à 2 arguments . . 35 
(MAPSUB l fn)  SUBR à 2 arguments . . 35 
(МАРТ L fn) |SUBR à 2 arguments . . . 35 
(МАХ ni ... nn)  SUBR à М arguments . 60 
(MCONS sl s2 ... sn) SUBR à N arguments 40 ` 
(MEMBER в 10)  SUBR à 2 arguments . . 37 
(MEMORY п)  SUBR à ] ergument . . . . 130 
(MEMQ а 1)  SUBR à 2 arguments . . . 37 
(MIN ni... nn)  SUBRàN arguments . 60 
(MINUS п) SUBR à 1 argument. . . , . 60 
(NCONC 11 12)  SUBR à 2 arguments . . 45 | 
(NCONC1 | si ... sn)  SUBR а N arguments 46 
(NCONS ei  SUBR à 1 argument . . . . 40 ` 
(МЕШЦ si ein GUDD à 2 arguments . . . 27 
(NECN ni n2  SUBR à 2 arguments . . 63 
(NEQP 51 s2) SUBR à 2 arguments .. 27 
(NEQUAL sl s2)  SUBR à 2 arguments . 27 
(NEROP п) SUBR à 1 argument . . . . . 63 
(NEWL at s)  FSUBR ......... 44 
(NEXTL at). FSUBR . . . . , . . + 44 
(NEXTSTR str)  SUBR à 1 argument .. 75 
(NOT s)  SUBR à 1 argument  ..... 26 
(NTH п D SUBR à 2 arguments . . . . 37 
(NULL s) GUDD à 1 argument . . . . . 26 
(NULLSTRP str?  SUBR à 1 argument . . 73 
(NUMBP s) SUBR à 1 argument . . . . 58 
(OBLIST)  SUBR à O argument . . . . >. 41 
(ODDP п) SUBR à 1 argument . . . . . 63 
(OPCD at) SUBR à 1 argument . . . . . 145 
(OPCD symbole valeur) pseudo LAP . . 141 
(OR 51... sn)  FSUBR . .... 28 
(ОВЕ s fni ... fn)  SUBRàN arguments 3o 
(QUTBUF n c) |) SUBR à 2 arguments .. 95 
(QUTPUT file) SUBR à 1 argument . . 103 
(QUTSTR str) [expr à 1 argument] . . 172 
(PAGE)  SUBR à 0 argument . . . . + . 94 


(PAIRLIS 11 12 al) 
(PATCH n1 n2  SUBR à 2 arguments . 
(PATHLIBRARY ррп1 ... ppnN)  FSUBR 
(PEEKCH) SUBR à 0 argument . . 


SUBR à 3 arguments A 
0 


* 


933 
84 
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(PJOB) .SUBR à O argument © жо $ 


°. 55 
(PLENGTH a) .SUBR à 1 argument . . . 50 
(PLUS nl ... nn) SUBR à N arguments . 60 
(POP n? SUBR-à 1 argument . . . . . . 81 
en at sl .. sn)  FSUBR. ..... 23 
(PPIOT nl n2  SUBR à 2 arguments . . 100 
oa ЕШ atl gt2 ... atn) FSUBR . . . 132 
(PRETTYEND) SUBR à O argument . . . 133 
(PRETTYF file swl) FSUBR . . . , . . 132 
(PRETTYFILE filout filin sul) SUBR à 3 arguments 
(PRETTYP а) SUBR à 1 argument . .. 132 
uA ке n). SUBR à 1 argument . 132 
(РНІМІ ei ... sN)  SUBR à М arguments 93 
(PRINC c п). >. SUBR à 2 arguments . . . 94 
(PRINT ei >.. БМ): SUBR à N arguments 93 
(PRINTLENGTH: n>- -SUBR à 1 argument . 96 
(PRINILEVEL n)  SUBR à 1 argument . . 96 
(PROG LU sl ... s?  FSUBR. . . . . , 32 
(PROGI sl ... sn)  FSUBR . .. ... 23 
(PROG2 58152... sn)  FSUBR. . . . . 23 
(PROGN в1:... sn)  FSUBR ...... 23 
(PSTACK n) | SUBR à 1 argument . . . . 81 
(PUSH sl ... sn). ИВА à М arguments 80 
(PUT pl .pyal ind) SUBR à 3 arguments 49 


(PUTVAL registre atome) 
(00011... nn) SUBR à N arguments . 
(QUOTE: в)  FSUBR . 
. (QUOTE ei es (АР... 
' (RANDOM) ·.50ВВ а 0 argument 
(RDCORE file)  SUBR 


LÀ . е % е . . 
. * . 


] argument 


a ° ° * * в ° . е 


(READ)  SUBR à O argument . . . . . . 83 
(READ: STD), GUDD 3:0 argument . . , . 89 
(READ. TABLÉ L)  SUBR à 1 argument . . 89 
(READCH) ` SUBR à 0 argument ,.... 83 
(READSTR ni  SUBR à 1 argument 2... 73 
(REGISTER at). SUBR à 1 argument . . . 145 
(REGISTER symbole valeur) pseudo LAP 141 
(REM n1 n2 . SUBR à 2 arguments . . . 61 
(REMPROP pt und) SUBR à 2 arguments 50 
(REPEAT m si ..;: sn)  FSUBR. . . . . 30 
(REPEATUNTIL el ... en s) MACRO .. 31 
(RESET i) ^ SUBR à 1 argument . . , , 55 
(RETURN s): SUBR à 1 argument . . . . 32 
.XREVERSE sl 52)` ` SUBR à 2 arguments . 41 
(REVERSTR str)  SUBR.à 1 argument . . 74 
(RPLACA obj s) ВА à 2 arguments . 43 


(RPLACA regs dest) macro du compilateur 152 
(RPLACB òbj 1) SUBR à 2 arguments . 43 
(RPLACD obj s) . SUBR à 2 arguments . 43 
(RPLACD reggs dest?) ^ macro du compilateur 152 
(RUN file n) SUBR à 2 arguments 04 
(RUNTIME?) - GUDD à 0 argument 
(SAMEPN ai a2) 
(SELECT. в 11 ... 


.... DG 
SUBR à 2 arguments . 50 
tn Lf)  FSUBR ... 29 
(SELECTQ s 11... їп 1D) FSUBR . . . 29 
(SELF s1 .. sn)  SUBR à М arguments 25 
(SET objl.sl ... objn sn) SUBR à N arguments 44 
(SETA nom indice valeur) | SUBR à 3 arguments 78 


(SETQ atl 81... atn sn)  FSUBR . . . 44 
(SETQA nom indice valeur)  FSUBR . . 78 
(SETQQ atl 51 ... atn sn) FSUBR . . 44 
(SHOHIT п) ЗОВЕ à 1 argument . . . . 105 
(SIN n? SUBR à 1 argument . . . . . . 87 


pa — testen ep en 
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(SMASH L) ШВА à 1 argument "T 


Ф 46 
(SOME 1 fn) SUBR à 2 arguments . . . 34 
(SORT al a2  SUBR à 2 arguments . . 50 
(SPACES ni  SUBR à 1 argument . . . . 94 
(SORT п) GUDD à 1 argument . . . . . 67 


(STATUS 0 n? affectation du В.О... 53 | 
(STATUS 1 ni ... nn) mise à 1 des bits du R.G. 53 
«STATUS 11 c) préfixe de lecture au toplevel 97 


(STATUS 12 c) préfixe des résultats au toplevel 97 Noo 
(STATUS -13- c) préfixe des impressions utilisateur 97 | 
(STATUS 14 с) caractère quote-caractère 88 

(STATUS 15 ©): caractère délimiteur de commentaire 88 š 
(STATUS 16 c)" caractère dólimiteur de chaîne 88 | 
(STATUS 16 с) caractère délimiteur de chaîne 71 y 
(STATUS 17 c n) . type d’un caractère. 88 | 
(STATUS 18 с s):: définition de macro-caractère 86 
(STATUS 19 с) :destruction de macro-caractère 87  . 
(STATUS 2 nl ... nn) mise а 0 des bits du R.G. 54 
(STATUS 20) ` dernière expression іше 7 

(STATUS 21) арре! du G.C. ..... 109 

(STATUS 22) nombre de doublets libres 110 

(STATUS 23 n) nombre maximum de G.C. 110 

(STATUS 24 n) nombre minimum de doublets récupérables 110 
(STATUS 28 at). trace fonction standard 122 

(STATUS 29 at) untrace fonction standard 122 

(STATUS 8-01.... nn) inversion des bits du R.G. 54 
(STATUS A ni ... nn) test des bits du R.G. 54 

(STATUS 5 n) base des nombres en entrée 57 

(STATUS 6 n? base des nombres en sortie 57 

(STATUS 7 n) marge gauche du buffer de sortie 95 | 
(STATUS 8 n)  poinfeur courant du buffer de sortie 95 
(STATUS 9 n) marge droite du buffer de sortie 95 

(STATUS n ergi ...:argn) | SUBR à М arguments 51 


о 


(STEP ati ... atm ЕХРА ....... 125 
(STEPALL D  FEXPR ......... 125 
(STOP  SUBR à O.argument . . . . . . 56 
(STRING =) SUBR à 1 argument . . . . 72 
(STRINGL str) ` SUBR à 1 argument . . 73 
(STRINGP =) ОВА à.1 argument . . . 73 
(5081 п) SUBR à I mrgument . . . . . 61 
(SUBLIS al =) ^SUBR à 2 arguments . . 48 
(SUBR fn 1) SUBR а 2 arguments . . 22 


(SUBST =1 s2 t) SUBR à 3 arguments . 41 
(SUBSTRING str nl n2 . SUBR à 3 arguments 74 
(SWAP п) SUBR à 1 argument ..... 67 
(SWITCH)  SUBR à 0 argument , . . . . 54 
(SYNONYM atl at2  SUBR à 2 arguments 44 
(TAB n) >! SUBR à 1 argument . . . . . 
(ТЕНЕАОО  SUBR à 0 argument . . e.. 
(TERPRI 4n SUBR à 1 argument . . . . 
(TIME) . .SUBR а 0 argument . . . . . 
(TIMES..n4 ... пп) SUBR à М arguments 61 
(TMPCO at) SUBR à 1 argument А 1 
(ТОРІ ЕМЕ)  SUBR à 0 argument . . . 
(TRACE ati ... atn) FEXPR . . . . 
(TRACEF fitin) ҒЕХВ........ 123 
(TRACEFILE filin) EXPR à 1 argument 123 | 
(TRANSLATE strl str2 str3) ЭШЕН à 3 arguments 74 
CTRMOP ni n2.n3)  SUBR à 3 arguments 0 
(TTAB п) SUBR à 1 argument . . . . . 94 

© (ТТҮОМРУ ЕХРА А O argument . . , . . 170 
(TYI) SUBR à 0 argument . . . . . . 93 
(TYO п) SUBR à 1 argument . . . e . 99 


е 
э» 
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(TYPE file) FEXR 2.2... 


| ... 171 
(ТҮРЕН сп) FSUBR ........ 88 
(TYPEFN at) SUBR à 1 argumant ... 39 
(ТҮРЕР s)  SUBR à 1 argument 2... 38 
(TYPNUMB п)  SUBR à 1 argument 2... 39 
(TYPNUMB в) SUBR à 1 argument. . . . 59 
(TYS)  SUBR à O argument . ..... 99 
(UNCONS г car cdr) macro АР... . 142 
(UNCOUNT atl ... atn) FEXPR .... 127 
(UNSTEP ati ... atn) FEXPR. .... 125 
(UNTIL в si ... sn) - FSUBR . , . . . 30 
(UNTRACE atl ... atn) FEXPR .... 123 
(МАС в D  SUBR à 2 arguments . , . 129 
(VALAP symbole valeur) pseudo LAP . . 141 
(VERSION) ВА à O argument . . . . 55 
(HHILE B El i5. sn) FSUBR e . о о . 30 
(WHOIS at) | FEXPR. .... .. . .. . . . . 171 
(WHOISALL) EXPR à 0 argument . . . . D 
OM IN п) gi à 1 argument . . , 170 
(WITH L sf ... s) МА e.. e. 189 
(WRCORE file)  SUBR à 1 argument . . 106 
(XCONS si s2)  SUBR à 2 arguments . . 39 
(XWD adri adr2) pseudo LAP . . . , . 142 
(2ЕВОР п) SUBR à 1 argument. . . . . 63 
чу. A .. e e. a o o pp e e ө e ù 4. 88 
RS kee e e s sa s e e s s e e s 140 


ЖЖ o4 9 ж» э S ж - o» 2 а « ж .,. 115 
Жк arithmetic exception. pc : «pc» . . 57 | 
ЖЖ array error : «nom du tableau» «indice» 78 
жж count : c'est quoi «at» . . . a.. | 

жк cycle error. . а өзе е е э > о 


N 
n" 


sick owel e А.» е о о ә. ә ег è ее. 102 
кж е: о. #. during read (in Library). . 92 
фк e.o. f. dur ing READ. ........ 102 
Жж enter error (output) : «n» 2... 103 
жж er а.с. step done. . , . ..... 110 
Жж escape-i : «n» è è + + + + 4 e oe у 120 
жж ill ref memory at user pc : xxx . , 116 
жж illegal uuo. e . . ° ° b o e www 116 
Жж implode error : <>.......,. 72 
жк label error : «a» . , , +, + + + < < 32 
жж lap error : «type» in «arg» . . . . 146 
жк left celis : <> ....,....,. 110 
Жк lescape error. ......... . 31 
*k Library error. . ......... 92 
жж lookup error (input) : «n» .... 102 
ЖЖ no room for -——— . .......,.. 109 
kk no room for arrays. . . . . . . . . 77 
жж no room for code. ......... 139 
ЖЖ no room for numbers. . ...... 57 
ЖЖ no room for strings. ....... 71 
ЖЖ non numeric arg : . . .. .. + + + 57 
ЖЖ not enough core. . ........ 110 
Жж open error (input). . . . .. ... 102 
Жж open error (output). . ...... 103 
Ж pdl overflow during с.с. . .... 116 
жж pdl overflow. ........... 118 
ЖЖ read error (in Library) : <>... 92 
ЖЖ read error «n» .......... 83 
ЖЖ return error. . . . . . x x xx cw cw ЗО 
жж sow 29 


self error. . . . + s < s . . " 
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status error : «n». . + . 


status error : typech., . : Н i . 88 
step с "est quol «dt» ..... 125 
trace : c'est quoi «at» . .... 


undefined function (apply) : «s» 
undefined function (val) 3 

undefined function (fsubr) : «fn» 
undefined function (subr) : «fn» 
undefined symbol : at . . . . + 
undefined variable : <at> 


к 
N | 
LA , 


оя 


unde f ined variable «at» . . .. e < 13 
unstep : с "est quoi <at> ..... 125 
untrace : c'est quoi «at» , . . . . 123 
user stack overflow. ....... 80 
user stack underflow. ....... y? 


° 
° 
=>. 
AT. 
C ` 


+ е * : ° . . e ` “ ә % 


s ALLO ? —— ° e > 


--- last fn: <> .......... 116 
m last form t «8» a э ә ee е э * ө 116 
m. ә ә e еее з o о ù ù е ә. 9 k 9 121 
е е ее ее е b ө е а е 4 еее ò 9 ә 87 
‚Сот e e e e ep ее ее еее е. э 115 
° XE e е о ө ө эз 9 еже è ее е o + 113 
e OD e. è + е 9 «е э ç а в 9*9 ә o 9 е °. % 145 
* ech > + ө + 9 + 4 s. A e э е ө + + + 8% 115 
+ START . è . . * . * * + * е ° e. е е * 115 
e VLA e a + е е е + e + e s. а > э а э. = 145 
VLC e з е e s е pp ее e е е е өэ * % 135 
e VLO e а aù ò + ^ 9 e e openee э е 149 
Mi e ө ° * е p ө à ° е e э ө ө өе | 132 
é Yi X e e ө е е е е аз а э е е ө ọ е 9% е | 137 
/ 2% e o 9? 9 4 е. ө € ө ә а э в е % ө 88 
// . ọ е е е а в е е ә е е е 9 + 9 Ò ° 124 
/f. è еее ө еб е ù 9 6 е э ò эъ е ө ө 125 
//< % . а а. e а ° ° a € s. 9 е ° ° ° 124 
//ш ° e ° e e e > è » e е * оо э е е 125 
//» e * o е а 9 е е 9 э + 9 % э ù + $ 124 
//р e е e е е % е ее е es е © э ә * 125 
$ % е е e. e. e Ф Ф + . a Ф Ф Ф ° * s s 140 
t$1STATUS e э 9 9 9 9 gp ass ә э $ 154 
¿$2STATUS а а е э э е е а е = é = 4 + 154 
1 $S3STATUS e 9 а е е е е е а е е е ө 9 154 
: SCRANB e ө а а е 5 9? ә 9 ө е в ө 9 6 153 
:ФСВАМР 2............... 153 
(48ПІЕБЕЕ............... 154 
t $GE . + * Ф . Ф é в $ е ° . Ф $ ° ə % En 
(GT e ө + s е + % e oa э o е e е о @ ° 54, 
(HE e * 9 е еее ò * э ә 9*9? ò э е Ò е 154 | 
ІТ «е е ә е эз е а 6 ее е е а 9 э е 154 
à SMAP1 e э ә » ә е еее ә ее э 9? ө е 155 
i$MAPC1 2............... 155 
t SMAPCN e ө э ө 9 е а э е е в ее ө а 155 
$ MAPN e + o e š e 4 э pp + е а e 9 6 155 
| АХ e e pe е ее э е ее е в e e 9 154 
MIN еее ә ее е % ее э э ù ө е ө 9 154 
t SPLUS Ф e e e Ф ° % е в . € D) е Ф Ф ° 154 
t $POP э е o е К ө 9 o е ве в в е э е è ө 155 


... wë - De sm cec 
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1$PRINI | .. 155 


s$PRINT % е e 9 ә ө ө ө э + ө e Q ө o 155. 
s $PUSH e e е ә 6 9 ù ^» e ө ee ò e e э 155 
8000 ................ 155 
t SREM 9* э е е 9 э + е e е e + e o ө 154 
: SSPACES 4 о 9 9? 9 * э ù е + е өзе ò 155 
t STERPRI Sep ве э ө ө 6 ө e ө + в ° a 155 
:$TIMES 4.2. °. a a 9  « e е 154 
è LIST SS е э ө 4 ө 9 е y ө э ө e ө 143 
ӘММВ............. e wv 143 
:В5ТНб ^ * 4% o 9 ө е ө э ө ө ғ“ э. ө 143 
E tCRAFLT . е е o ә 9 ө ә е 9 е 9 9 ө 144 
+ CRANUM .9 * е е ә е ее э ее ә е 9 ө 144 
t CRAONE . 9 ө е 9 + в э э е 9 + o ө ^ 153 
s CRASTR е * Ф Ф ° . é ° * ° е e ° * ° 144 
sCRAZER э > е ep э е ù э e э ее ө 153 
: ESBIND 4 9 э 9 9 ò е е еее 9 + o ө 157 
#ESCAPT a ù u 9 ә ө а wë QQ е e 9 9 o 157 
:FALSE ° ө e ее 9 ә ө э е е а ғ ө ө 153 
:FSBIND э ә ө е зе э е э > э э + e ө 156 
t МЕМ ve a e ew 140 
: МОВА °з т e э е ғ e ә. е . o o è е 156 
iNSUBRP ........ ss 4*4 ses 156 
t PNAME * 9 еее е е е s ò э e ù e e o 143 
à SBIND ее 9 а + е э 9 4 9 >œ e . + e ө 156 
511 ............... 156 
:5ВІМ02 ° 9 9 о оа è e ө | @ G= е ғ e e a 156 
t SBIND3 еечзе е 9 е 4 a ә ө е... у | 156 
$ TRUTH е ча а ө ве > 4 ө э + è> ù a ọ o 152 
i TRYATOM s * ө ә | $ dc ж à а e э + е ә 143 
4 ҰРОР.) . Ф + * . Ф e EI * Ф е ° v + e ° 1 52 
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G 


P e | e 
фРАСЕ; . | 132 
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° 
е 
т 
е 
е 
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° 
е 
* 
е 
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* 


<- . o Sp è è ә > > e ғ ù è + 9? pe °. 121 
«ӨЗ , 6 4 +s s s s s s s s e беу: 21 
<a L> ә Ф е е . 8 a * ° ө е е е . ° е е 47 
<at> e ee ео ооо оо о о a eo о °. 21 
«c» + е а ° е ° ° ° е . LJ * ° ° е . ° 21 
<dev> э 9 ep e э ө e e ee oe e e е 101 
«ext» ................ 101 
<Үйе>................. 101 
<fn> жаз аж * ө э ез 5 ә + a > 21 
«ind» ........ ......... @8 
<l> > Өө ù è е. e ep ee ee $ у e о 21 
<( und» 4 686 е è ө е * э * 9? э 4 э + + ө 49 
«ob j» . Ә ge ө е е ә ә э е à б e o о 63 
<р (> Ф * а "e ° ° е e e ° * s ° е e * ° 48 
<ррп> * D W 4 6 е е e ө о е ә о è ù o 101 
<ргод>................ 101 
«proj» e 9 э es ò ee ee 24 $9 + ө 161 
<prot> Sp e 9 э > ғ ә әс e 4 + o о 101 
<Әруаі»................ 49 
<> ................. 2] 
“.. oe à + + + o’ ав $9 ^ + + э 97 


* е ° 


? 4 64 9 э э e е е QQ ^ 9? еее e a o ew 83 
address check for device y at user pc ххх 115 
?скаггау ° ° ө е Ф ° е ° ° е Ф е ° . ° 158 
?filap e e + оь 9 ee э c» + e e 4 ө у 
Флаескв............ "Mee 
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?io to unassigned channel at user pc xxx 2” 


?mem par error at user pc xxx .... 11 
?non-ex mem at user pc xxx . ..... 115 
?open ° e ° е е а + в = ж ° Ф e ° * . 158 
?pc out of bounds at user pc xxx . . . 115 
Fslonum . . . . . бой ж S Q wd е а 199 
T5500 e Ss «э 4 + & < à 150 
?vlisp.sev not found , . . » < + + Ü< . 111 
8 Ф * e е * ° e° е ° ° е + о e Ф L Ф е 140 
A-liste. e ө Ó э < е а % е а + е % е «а 47 
А1 Ф ө 6 € . ° е ° e. e е Ф . D ° e e. е 139 
А2 ° % ° ° s ° *° е е . e ° Ф ° LJ ә е 4 139 
АЗ ° LÀ D ° а L а . * L . 6 + ° ° . . ° 139 
Аё е е e е е Ф о Г Ф е Ф е . * ° Ф * е 139 
А5 * ©. > ө ә 9 9 с е ә q 9 + ө + а 139 
A6 г е е s е * e е % е . ° . ө е е ° Ф 153 
A7 е е ә * Ф *@ » e * e е Ф е е . ә * * 139 
АВ е з а ә ә ә е ә ө е 4 е ә ө ә š » 139 
Accès à un tableau . . . + + s < < < a 77 
Accès aux objets © ж ж ж & < à 143 
Affectation en parallèle . . . . . . . 33 
А501. т » в а е е в э в ° * . + ө + D 32 
ARVEILLER jacques .......... 5 
Atomes litéraux ........... 11 
AUDOIRE louis EI е Ki ° ә е . ° 4 ө е L. 5 
AUTOLOAD a е в вс e + a * LÀ * ° * * * е 92 
АМоісайі............... 17 
ВАВА raymond ............. 6 
. BENNETT gerald ° . e е . + э . ә D е % 6 
Bit 0 du reg- A е Ф % * ° . . Li е . * | 112 
Bit 1 du г.р. ..........».». 112 
314 19 du rege ss. e a * w; w ee 05 
it 1 du Fee ° . a a е ә . * * * * . 102 
it 12 авғг.0............. 58 
Bit 13 du rege в o в ө 9S е + ° ә ° ә е 58 
it 14 du rege c. BS ` 
Bit 15 (аи г.ао............. 85 
Bit 16 du б o o e è oœ a oè» o a o o 92 
Bit 17 du Pego s е ә ъ е e * * е е . è 71 
Bit 18 du re g. ә ° е + e. | ° ә + е + ° . 85 
Bit 19 du Гг.» . ә в е ә ? в + еее 9 85 
Bit 2 dur.g. .........-.... 112 
Bit 20 du г.а. ............ 97 
р 21 йи rege » ° » °. * ә * ° э Ф Ф % 98 
Lt 22 du rage . * . °” е Ф s Ф е ә .* Ф 58 
it 23 OÙ rea asee eo € ж з» + ж Об 
Bit 24 du ғ.а........ ш.ш 59 
Bit 25 du ғ.а. ....... e on о ev 98 
Bit 26 du r.g. . . . + , + s + + + + <+ 98 
Bit 27 du г.б. e o в. э а е 9 е е е э 71 
Bit 28 іи гғ.ао............ . 97 
Bit 29 du г. б» e е а . 9 + ө 9 + е е ө 112 
Bit 3 du R.G. ..........».. 121 d 
Bit 34 dur.g. . . . . k ж < à + à < 113 
Bit 35 du r.g. .. ë ш à + » E жа 108 
Bit | du e 42а . e o è e е ө € ө э e э 121 
Bit 5 du r.g. ............. 109 
Bit 6 du rege e * * ° o è ° е а . ° + 109 
Bit 7 би г.д. ............ 78 
Bit 8dur.g. ...... ¿ç <+ x ww 124 
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Caractère Eu cw à xš . æ. o oa 83 


Caractère spécial . . . . . .. + + < 98 
CATTENAT annette . aa . . . , + < , , `5 
R + ° e е е в ә е ә е % е е е е е в 142 
Chaîne de caractères ......... 71 
Chaîne vide .............. 71 
CHAILLOUX jéróme . . . . . . . . . . . 5. 
Co-post-recursion . . . . . . . . e». 18 
Compilateur ............ 151 
Comptages ә ° ° * ә е a * + LJ 5 ° » 6 127 
CONFIG. INI . . . . . .. a. .. e «в a we 110 
EEN E € š ж л» x * . 110 
CONS . е е «е е 9 Ф *. ° * е % 9 . е Ф є 142 
COSLADO ПЧ + y ç озне S. Q à à à 5 
Création d'objets | еп lap .... 143 
Création de doublet ......... 144 
CROSS REFERENCE @ . а а ^» а v е * (D ° 1 35 
Débordement d'entier . . . . 4% D7 
Débordement de la pile utilisateur . . 80 , 
Débordement flottant ......... 57 Y 
Définition de tableau . . , . . , , + 77 
Délimiteur de сһаілпе......... 71 
élimiteur de сһәіпе......... 88 
Détimiteur de commentaire . . . . , . 88 
Démarrage à chaud .......... 113 
t е в ае % s e . * * + $ 130 
EVILLERS yves . DEENEN EE TE EEN 
irectory ............. . 101 
Bison par 0. . . . . . қыз 4 B s 57 
LONG véronique . . s . . . + ... 4: Ө 
ENGLERT giuseppe . . . . . . канта 9 
Entrées/sorties . . . . . , . . + + + 83 
ЕТ ç < s < ë - $ э» A4 Ww ж з .. 102 
Erreurs + è + . » + . е э е aè е э p p 115 
rreurs de Lecture, . . . . + + BS 
ESCAPE.I «ow 4.» e o» S s s s X3 . 119 
ETV е 80 е е е е ә е + . ғ в е Кө К э o ө 112 
ЕХІТ è» * * е a °” . э е ә а а  @ в в ғ 56 
EXPR | ç в 9 е е e Ф е ә е Кө е е е а ө 14 | 
FEXPR * ° . * * * b . . * з LÀ * е * 15 | Ki 
Fichier d'entrée ......... sx» 102 
Fichier de sortie .......... 103 
Fichier init (а! € e ò òè . ә è 9? e ò 110 е 
Fichier standard d'entrée . . . ¿ Q . 110 41 
Fichier standard de sortie . . . . . . 110 ©! 
Fichiers e е е е за ва э è ав ө >ò ^5. 83 | 
ELLE ыса 2 Q 103 TA = 
Fin. de fichier . . . . . . + + + e + + 102 SE 
Fonction indéfinie . . . . . . + , + + 118 ga 
Fonctions standard . . . . . j: ж жай 21 2 
OPNS ж s x 4 €» € x w. 8 d S 3X Xx Q “ 13 4 
FORTRAN .......... Cari 32 M 
ав ж 9 5% 0% ілік wx ww. 180 
FROST mar t іп * 9 а è ^ 9 «ж ° Ф D ç ° e 100 
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ASIN 3 МОСЫ LI NLIS An 


FSUBR . ° a е ә е ә е № Ф ° ° Ф Ф е ° 14 
G.C. e e ее = е ве э а ә 8 4 б о o oa . 144 
бегбада-со1іесбіпа.......... 108 
GOOSSENS daniel . . . . ə o Əізкез 9 
GREUSSAY patrick . . ssas +< s s < + 5 
HARVEY brian з е » a è ° % 9 е e . е . 100 
HUI TRIC her vé e e oe a о e * é + pp «е 5 
HULOT |вәп-тпагів...... e e new 9 
Image-mémoire ............» 106 
Impression des Listes circulaires . . 96 
N Е ." ® 6 е е е + = Ф Ф * ° ° Г е е 137 
Indice e + ө о е е °. . ә е э ө е + o ө 77 
Informatique musicale . . . e e ex + Š 
Instruction lap ...... e e e o o 140 
_ INTEL 880.............. Б 
Intelligence artificielle ...... 5 
Inter Lignage . . . . . + + + ж ж» + ӘЗ 
Interruption soft e e s e» ə + 119 | 
ІНСАМ е 9 о 5 + ò ә в è ә e ә 9 e 4 ө 6 ( u 
IT е ө» е ә э 5 э а ә е 9» 9 o v" e 112 АГ 


JNLIST . . d a в е е а ә + ве ә .. 
РЗ so x Se Q o e à à Q 


H 
.. 142 1 
.. 142 E 
э a ө е е ә ае ew а ^ е е e ò э e ө 139 \ 
['ї{пїтегргёе............. 11 j 
токта ша ion: s S жж x3 xx ow x 19 \ 
( әр e + е ө е o e e 4 в а ^? 4 s + 139 6 
Lapack e + S < +< s s + e о e xv. 139 \ 
Lecture des s-expressions ...... 83 , 
Liaison des paramètres des fonctions . 15 | 
Librar e s s sis s  .4....... 92 
INK- 1 e e Wee е + » ө а e pe + э 140 
iste circulaire ........... 45 
MACIN 8 22 eegen ENK a ee 92 
MACLAP ¿ e < o» < < ç < w ** AS >» . 142 
МАСООТ......... ыы ат» 98 
Macro caractère ..... të ж <. Q, 9 
Macro du compilateur ......... 151 


MACRO fonctions ...0........ 16 
Macro fonctions d'entrée . . . , . . . 92 
Macro fonctions de sortie . . . ... 98 


Macra- Lap Ф . = * o . % е е % . ° е . 142 
Ma juscu Le е e * * ә ә е LJ * а Ф е ° ә 132 
Minuscule . . , e s s < n è» .. 132 
Mise au point ...... оза а + à 119 
MODULO 4 4 4 e ès € s ыза ж ow ж "DO 
terii monique , , + s +s < < eè o ¿ d. D 

DNA. е » е-е 9*9 5 о ае». е о ^ о ө ^? ө 143 
Ve e е а ә а в o c а оо е е = + ө 119 
ММВ........ à © ж ër X» Q < ж 140 
Organisation de l’interprète . . . . . 107 
P Ф e е в ео ^ е е ээ ò% э е е в Ф . я 140 
Р- L ist ° . ә + e в a е * е a D * * е е 1 1 
Р- ( iste е а ә а з ә + ә Кө е е е өе ә s 48 
Р-пате ° » Г] e е . D а э . е Ф . . 1 1 
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ss {огше{........ 15 
as à pas .............. 124 
PAUL RER ns ж ж 4 S e e d * О 
1 е = ө Li * ° + в * ғ. LÀ е . . . е 6 
PERROT |еап-Ғгапсоів......... 5 
Petit entier . . . . . . . + + + + + . 58 
ile utilisateur . . . . . +< s < < .. 80 
ELTER s s s s s w * s we 9 x + à sx 143 
ointeur sur la pile utilisateur . . . 81 
Points d'entrée spéciaux . . . . . . . 152 
PRETTY-PRINT э ее а. + э э è a e . e 131 
retty-print automatique en entrée . . 102 
RINI . Ф в Ф a D ө * D e. D ° D ° ° ° 131 
PRINT Ф + . А в ә Ki Ф .* * ° е Ф % ° + 131 
Program control. s s se es e. a. 57 
Programmation experimentale ..... 5 
Pseudo-instructions du lap . . . . . . 141 
QUOTE S UR e d ө е а e е а 0 % + ғ 9 a 140 
Quote caractère . . . . . . e * v à + 88 
Quote-caractère . . . . . . . , < + + 98 
Répertoire . s s.s.s . . . e ex va ew ӨЗ 
о4о о о 2 P э е о * e . о ө ө . e ө е 52 
реа Дар“ à ae à s < à Ess E 
RG . Ч ais е езе à < е à w = € à à w % 139 
RICHER jean-louis | 2:0......... B 
RISSET jean-c laude . . ° . . °. * ° ° ° 6 
ROBINET bernard + e "2 s а а + e е у . 5 
RONCIN didier . .. .. .... «аж 5 
Signe ............ + * o.» 58 
4 igne = D @ а ве а e o е е е . e е e e 58 
SOLAR е s s AS ы * » е а ә a Ф а . . ° 5 
Spécification de fichier . . . . , . . 101 
STR °° + ^*^? э e е e e e е ә ее è è è .° 140 
SUBR е e . Ф Ф æ е s s a ° ° . . е s * 14 
Surimpression . .. + + + 94 
SYS:DISPLAY.VLI .. о.о ао о ә 99 
11900 ....... š. Q ж 9» 5 9 
Table de іесіге.......... 89 
Tableau ............... 77 
Taeil-recursion . . . . . . + , + < + + 18 
TECO * + e 9 D + э . а е e ^? г е e e 111 
TOPS 10 е LI a Ф * ° ° * ө ° ” ° » LI 55 
Traces + ù è s e A. 121 
Transcodage minuscule majuscule . . . 84 
Type des caractères e o we xw aw wv 88 
EI 2 z 2 2 2 2 w Z | e + + + ж «+ + 139 
азна s 2 xs © жож жооў ж ® жож. 109 
UNCONS . © C. ж. de 420% + ° e e + ы 142 
UNDEF o a 4» $ x 4 жу» x ж эж Q w X o£». ОЁ 
Universite de PARIS VIII VINCENNES.. 5 
Utilisation de l'interprète . . . . . 107 
UUO CALLI .............. 55 
UUO EXIT * ж * ° ө Ф е Ф . е . * е е 56 
ШО FILOP . . . . . . . soscas e 103 
UUO GETTAB . . . . . £ ж xoa wow ъъ» О? 
ОО IRCAM PPIOT ........... 100 
UUO LIGHTS . . . . . . . z. . , , + + . 55 
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PP mm ы 


Ld 


UUO PJOB «ee... 


| . 55 
uuo СЕТЦИР ° Ф a е . е * * € * Ф ә . + 130 
UUO SWAP . . s . s aas os + + ong o onm nf 106 
UO 5штсн.............. 54 
UUO THPCOR а . . . 4n s s on rn 105 
UU TRMOP ° » e ә е е е е е е е а е е 100 
Variable indéfinie > . . s.s sesa. 118 
VERSATEC ә * ° ° е ев а әд е в + 4 г . ° 6 
VINCENNES .............. 5 
VPRETTY , , , + 1, à s s 131. 
WERTZ һегайй............. 5 
ZELASKA katarzyna .......... 5 
7106 280 ........... es 29 
| | 29 45» КАРО 5 5555 85 
s1 ° 52 1 s ° в. е а е а о е + е [] . 39 
1 1... sn] ........... . 40 
[ sl в2... өп-1. s) . . . . + + + . 40 
\ ізіз6Е 4 51 39 19 3 à + = à 57 
1 e а в ә ғ аг + 2. е e е ев а э а а ж а 85 os 
Ф G.C. ^ TYPE .CONT PLEASE. . . . . . 108 germs 
ТС . | e e ет а а + о = è е + ө . е 56 à š s Ж 
TL. e pn ө ә i 9 è э 9 е «жа o n F ә е 132 | ti AE м À 
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